Warteschlange realisieren

[DeddyH]

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]