Пример работы с указателями

var  
p1 : ^String;  
s1 : String;  
begin  
s1 := 'NotTest';  
new (p1);  
p1 := @s1;  
p1^ := 'Test';  
Label1.Caption := s1  
 
 
Автор ответа: Baa
Взято с Vingrad.ru

 



Содержание раздела

---