|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.631 Beiträge
Delphi 12 Athens
|
AW: Warteschlange realisieren
14. Mai 2012, 17:34
Weshalb trägst Du die Daten denn jetzt 2 mal ein?
[edit]
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
MyRec: TPerson;
begin
MyRec.Name := Edit1.Text;
MyRec.id := StrToInt(Edit2.Text);
MySchlange.einfuegen(MyRec);
end;
Wenn Du die ganzen globalen Variablen (außer dem Formular) mal weglässt, wird das viel übersichtlicher. MySchlange könnte auch ein privates Feld des Fornulars werden, welches Du im OnCreate erzeugst und im OnDestroy wieder freigibst.[/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
Geändert von DeddyH (14. Mai 2012 um 17:39 Uhr)
|