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.81 MB
Zeit: 0.031 c
3-21998
Yu
2001-12-07 11:27
2002.01.08
Einen Eintrag aus der Query löschen


3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + Delphi


1-22209
Knochen
2001-12-14 14:10
2002.01.08
Hat jemand die PaintTo-Funktion verwendet, um WinControls auf einer Canvas-Bitmap zu zeichnen? Hilfe Ich kann nichts machen


7-22443
Masik
2001-09-27 13:02
2002.01.08
PopUp-Menü Y2k


1-22172
ASTARD
2001-12-19 22:12
2002.01.08
Leute helfen pliz ???





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Swedish 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