Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.012 c