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

Материал из DRKB

Пример работы с указателями[править | править код]

var
  p1: ^String;
  s1: String;
begin
  s1 := 'NotTest';
  New(p1);
  p1 := @s1;
  p1^ := 'Test';
  Label1.Caption := s1;
end;


Author: Baa
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00255