указатели

← →
Ag2002 (2002-10-12 09:56) [0]

Подскажите пожалуста,
как правельно работать со следующей структурой:
Type tr = real; zap = ^struk; struk = record num:tr; next:struk; end; var mas:array [0..5] of zap;
Как ображатся к элементам такого масива,для чтения, записи, если можно наглядный пример

← →
TTCustomDelphiMaster © (2002-10-12 11:00) [1]

Type
tr = real;
zap = ^struk;
struk = record
num: tr;
next: zap;
end;
var
mas :array [0..5] of zap;
i: integer;
begin
for i:=0 to 5 do
new(mas[i]); // Выделение памяти

mas[0]^.num := 999;
mas[0]^.next := mas[3];
mas[0]^.next^.num := 998;
mas[0]^.next^.next := mas[5];
mas[0]^.next^.next^.num := 997;
mas[0]^.next^.next^.next := mas[2];
ShowMessage(floattostr(mas[5].num));
ShowMessage(floattostr(mas[3].num));

for i:=0 to 5 do
dispose(mas[i]); // Освобождение памяти
end;

указатели Найти похожие ветки