Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Tell TLach nachset Encontre agências semelhantes


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

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



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


implementação

{$ R * .dfm}

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

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


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

end;



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

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

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



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.81 MB
Hora: 0.03 c
1-22043
Sarja
2001-12-18 19:18
2002.01.08
Excluindo um objeto


3-21947
Obstinado
2001-12-05 13:18
2002.01.08
Recuperando uma lista de índices de uma tabela do Oracle


1-22238
T2
2001-12-16 07:29
2002.01.08
Determinar o número do item de menu


4-22472
Eugene
2001-10-27 17:03
2002.01.08
Como criar seu próprio servidor proxy pequeno?


1-22096
Mikhalyov Dmitry
2001-12-19 15:55
2002.01.08
Sobre o TObject em eventos





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol