Home
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Down

Prompt nachset TLIST Find similar branches


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

There is an array to which I assign values ​​and immediately put it in a list, then I need to change the parameters of the array and accordingly so that tlist sees them too, I bring an algorithm in which the list does not see updates :(



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


implementation

{$ R * .dfm}

procedure TForm1.Button1Click (Sender: TObject);
was
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]

first you put in the copy sheet pointers to COPIES of array values,
located elsewhere!

I think your problem should be solved much easier, and most likely you will not need an array. Explain the original problem.



Pages: 1 whole branch

Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Top





Memory: 0.54 MB
Time: 0.02 c
1-22248
Leviathan
2001-12-17 13:07
2002.01.08
Delphi mocks !!!


3-21956
Sevostyanov Igor
2001-12-05 17:56
2002.01.08
Programmatically execute SHUTDOWN IMMEDIATE


3-21989
Boris
2001-12-06 15:50
2002.01.08
When writing a query in TQuery, all records are loaded.


1-22242
Sour
2001-12-14 11:00
2002.01.08
POP3


1-22249
Eugene Zelikovsky
2001-12-17 13:53
2002.01.08
How to wait some time without using TTimer





afrikaans albanian Arabic armenian azerbaijani basque belarusian bulgarian catalan Chinese (Simplified) Chinese (Traditional) croatian Czech danish Dutch English estonian filipino finnish French
galician georgian German greek haitian Creole hebrew Hindi hungarian icelandic indonesian Irish italian Japanese Korean latvian lithuanian macedonian malay maltese norwegian
persian polish portuguese Romanian russian serbian slovak Slovenian Spanish swahili Swedish thai turkish Ukrainian urdu vietnamese welsh yiddish bengali bosnian
cebuano Esperanto gujarati hausa hmong igbo javanese kannada Khmer lao latin maori marathi mongolian nepali punjabi somali tamil telugu yoruba
zulu
English French German Italian Portuguese Russian Spanish