Problem mit verketteter Liste

[Koller]

Ich schreibe soeben die Hinzufügen-Routine einer verketteten Liste (TParameterList):

Delphi-Quellcode:

type
  PItem = ^TItem;
  TItem = record
    Data: TParameter;
    Next: PItem;
  end;

procedure TParameterlist.AddAtEnd(AParameter: TParameter);
var NewItem: PItem;
begin
  New(NewItem);
  //das hier tritt immer wieder ein, auch beim zweiten und dritten mal O_o
  if (FFirst = nil) then
  begin
    showmessage('1');
    NewItem.Data := AParameter;
    NewItem.Next := nil;
    
    //warum ist FFirst hier nach immer noch nil?
    FFirst := NewItem;
    FLast := NewItem;

    Dispose(NewItem);
  end
  //dieser Block wird NIE durchlaufen
  else begin
    showmessage('2');
    NewItem.Data := AParameter;
    NewItem.Next := nil;

    FLast.Next := NewItem;
    FLast := NewItem;

    Dispose(NewItem);
  end;

  inc(FCount);
end;

//vlt. liegt's am constructor irgendwie???
constructor TParameterlist.Create;
begin
  FFirst := nil;
  FLast := nil;
  FCurrently := nil;

  FCount := 0;
end;

Das Problem ist mit Kommentaren versehen. ;)

[Der_Unwissende]

Hi,
da wo Du den Kommentar gesetzt hast, ist die Variable nicht mehr nil.
Aber schau dir mal die folgenden Zeilen an und kommentiere was jede dieser Zeilen macht.

Gruß Der Unwissende

[mkinzler]

Wo ist FFirst deklariert?

[Hawkeye219]

Hallo Koller,

du solltest die mit New() erzeugten Elemente nicht direkt nach dem Einfügen in die Liste freigeben, sonst erhältst du Zeiger, die ins Nirwana zeigen. Den Speicherbereich darfst du erst nach dem Entfernen eines Elements aus der Liste wieder freigeben.

Nimm mal die zwei Dispose-Aufrufe aus deinem Code raus und teste erneut.

Gruß Hawkeye