указатели
Ag2002 © (2002-10-12 09:56:00)
Подскажите пожалуста,
как правельно работать со следующей структурой:
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: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;
Наверх 
ЧАТ |
Орешник |
|
