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

Подскажите начсет 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;

---

← →
MBo ©   (2001-12-17 14:24) [1]

сначала ты вносишь в лист копии указатели на КОПИИ значений массива,
находящиеся в другом месте!

Думаю, твою задачу надо решить гораздо проще, и массив скорее всего не понадобится. Разъясни исходную проблему.

---

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

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



Память: 0.45 MB
Время: 0.01 c