Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
9. Dez 2011
Procedure TForm1.OutList;
Var
x: integer;
Next: pEintrag;
Begin
next := First;
LBOutNumber.Items.Clear;
while Assigned(next) do
begin
LBOutNumber.Items.Add(IntToStr(next.Wert));
Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
9. Dez 2011
wo ist die rote Box hingekommen .....
Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
9. Dez 2011
Procedure TForm1.AddElement(Wert: integer);
Var
hlp, hlp2: PEintrag;
Begin
//Anfang vorhanden ?
If (FIRST = Nil) Then Begin
New(First);
First^.Vorgaenger := Nil; //Der Anfang der Kette hat keinen Vorgänger;
First^.Nachfolger := Nil; //Der Nachfolger ist auch erstmal nicht vorhanden.
hlp2 := First;
Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
9. Dez 2011
Vielleicht ist der Aufruf von FreeKette im Destruktor nach der Freigabe der Liste keine gute Idee