Пример работы с указателями
Falk0ner, вс, 06/07/2008 - 15:34.
{©Drkb v.3(2007): www.drkb.ru}
var
p1 : ^String;
s1 : String;
begin
s1 := 'NotTest';
new (p1);
p1 := @s1;
p1^ := 'Test';
Label1.Caption := s1
end;
var
p1 : ^String;
s1 : String;
begin
s1 := 'NotTest';
new (p1);
p1 := @s1;
p1^ := 'Test';
Label1.Caption := s1
end;
Автор ответа: Baa
Взято с Vingrad.ru http://forum.vingrad.ru
Отправить комментарий