Подскажите начсет TLIST

← →
Dreamer (2001-12-17 14:17) [0]

Есть массив которому я присваиваю значения и тут же заношу в list, потом мне надо изменить параметры массива и соответсвенно чтоб tlist их тоже видел, привожу алгоритм в котором тлист не видит обновлений:(

var
Form1: TForm1;
k:integer;
pusk:array of integer;
N:integer;
ListPUSK: Tlist;
ukazPUSK: PDouble;
g:extended;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
k:integer;
begin
ListPUSK:=Tlist.Create;
n:=4;
SetLength(PUSK,N);
for k:=0 to N-1 do
begin
pusk[k]:=k+1;
New(ukazPUSK);
ukazPUSK^ :=pusk[k];
ListPUSK.Add(ukazPUSK);
end;

for k:=0 to N-1 do
begin
pusk[k]:=8;
end;

for k:=0 to N-1 do
begin
ukazPUSK:=LISTPUSK[k];
if ukazPUSK^=8 then
g:=ukazPUSK^-2;
end;

end;

Подскажите начсет TLIST Найти похожие ветки