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]

[hotkey]

Wo denn , wenn ich fragen darf ?

[DeddyH]

Na, hier:

Zitat:

Delphi-Quellcode:

  if Result then
    begin

      //Daten an aktuelle Array-Position schreiben
      schlange[Next].Name := x.Name; //Nr. 1
      schlange[Next].Id := x.id;
      //Position abziehen
      dec(Next);

    schlange[next].Name:=x.name; //Nr. 2
    schlange[next].id := x.id;

    end

[hotkey]

Naja next ist doch 10 , und wenn ich was eingefügt habe , will ich in ja next 9 was reinmachen , dazu muss ich doch dec benutzen , oder ?

[DeddyH]

Ja, aber wieso schreibst Du dann in 9 dieselben Daten nochmal?

[hotkey]

Achso ich verstehe den Fehler jetzt.

Aber :

Delphi-Quellcode:

function tschlange.einfuegen(x: person):boolean;
begin
  //hinter dem Array kann man nichts mehr einfügen
  Result := Next >0;
  x.Name:= form1.edit1.text; // ERWITERUNG
  x.id := strtoint(form1.edit2.text); // ERWEITERUNG
  if Result then
    begin

      //Daten an aktuelle Array-Position schreiben
      schlange[Next].Name := x.Name;
      schlange[Next].Id := x.id;
      //Position abziehen
      dec(Next);

    schlange[next].Name:=x.name;
    schlange[next].id := x.id;

    end;
end

Wenn ich was eingebe die ID und den Namen , dann bin ich ja im 10.Array Feld , denn next ist 10 , und wie kann ich dann Daten ins 9.Array Feld eingeben ?

[DeddyH]

Indem Du neue Daten eingibst und dann erneut einfuegen aufrufst?