Пример работы с указателями
01.01.2007
Baa
var
p1 : ^String;
s1 : String;
begin
s1 := 'NotTest';
new (p1);
p1 := @s1;
p1^ := 'Test';
Label1.Caption := s1
01.01.2007
Baa
var
p1 : ^String;
s1 : String;
begin
s1 := 'NotTest';
new (p1);
p1 := @s1;
p1^ := 'Test';
Label1.Caption := s1
|
Previous page:
Получение размера памяти выделенный под Pointer |
Top: DRKB |
Next page: Увеличение значения указателя |