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

var

p1 : ^String;

s1 : String;

begin

s1 := 'NotTest';

new (p1);

p1 := @s1;

p1^ := 'Test';

Label1.Caption := s1

Автор ответа: Baa

Автошины грузовые автозапчасти оптом

панели буазери

---