Подскажите начсет TLIST [D6, Win2k]
Dreamer © (2001-12-17 14:17:00)
Есть массив которому я присваиваю значения и тут же заношу в
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;
MBo (2001-12-17 14:24:00) [1]
сначала ты вносишь в лист копии указатели на КОПИИ значений
массива,
находящиеся в другом месте!
Думаю, твою задачу надо решить гораздо проще, и массив скорее
всего не понадобится. Разъясни исходную проблему.
Наверх 
ЧАТ |
Орешник |
|
