Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Eingabeaufforderung nachset TLIST Finden Sie ähnliche Zweige


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

Es gibt ein Array, dem ich Werte zuweise und sofort die Liste eingebe. Dann muss ich die Parameter des Arrays ändern. Um die Liste anzuzeigen, gebe ich auch einen Algorithmus an, in dem die Liste keine Aktualisierungen sieht: (



war
Form1: TForm1;
k: ganze Zahl;
pusk: Array aus ganzen Zahlen;
N: ganze Zahl;
ListPUSK: Tlist;
ukazPUSK: PDouble;
g: verlängert;


Implementierung

{$ R * .dfm}

Prozedur TForm1.Button1Click (Sender: TObject);
war
k: ganze Zahl;
beginnen
ListPUSK: = Tlist.Create;
n: = 4;
SetLength (PUSK, N);
für k: = 0 bis N-1
beginnen
pusk [k]: = k + 1;
New (UkazPUSK);
ukazPUSK ^: = pusk [k];
ListPUSK.Add (ukazPUSK);
end;

für k: = 0 bis N-1
beginnen
pusk [k]: = 8;
end;


für k: = 0 bis N-1
beginnen
ukazPUSK: = LISTPUSK [k];
wenn ukazPUSK ^ = 8 dann
g: = ukazPUSK ^ -2;
end;

end;



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

Zuerst kopieren Sie die Zeiger auf die COPIES der Array-Werte in das Kopierblatt.
an einem anderen Ort sein!

Ich denke, Ihre Aufgabe sollte viel einfacher gelöst werden, und das Array wird wahrscheinlich nicht benötigt. Erklären Sie das ursprüngliche Problem.



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.55 MB
Zeit: 0.024 c
7-22435
sssss
2001-09-23 14:15
2002.01.08
MASTERYYY !!! FRAGE VON LEBEN UND TOD !!!!


7-22430
AlexK
2001-09-21 12:28
2002.01.08
Tastensperre


1-22057
AlexeyV
2001-12-19 03:34
2002.01.08
Wie man einen Dialog herbeiführt


1-22202
T2
2001-12-16 07:12
2002.01.08
Zur Ausgabe kleiner ausführbarer Dateien


14-22329
Dima-k17
2001-11-03 15:12
2002.01.08
Delphi-Zeiten sind vorbei?





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch