Thema: Delphi Die verkettete Liste

Einzelnen Beitrag anzeigen

Koller

Registriert seit: 22. Mär 2005
59 Beiträge
 
#4

Re: Die verkettete Liste

  Alt 18. Jan 2007, 19:39
Delphi-Quellcode:
procedure TParameterlist.AddAtEnd(Name, DataType: string);
var param: TParameter; NewItem: PItem;
begin
  param := TParameter.Create(Name,DataType);
 //If list is still empty
  if (FFirst = nil) then
  begin
    FFirst.Data := param;
    FCurrently := FFirst;
  end
  //list just has content
  else begin
    SetPointerAtPosition(High);
    New(NewItem);
    NewItem.Data := param;
    NewItem.Next := nil;
    FCurrently.Next := NewItem;
  end;

  inc(FCount);
end;
Habe die Methode jetzt so abgeändert.
Es wird nicht mehr TParameter übergeben, sondern Name und DataType.
Es wird, denke ich , jetzt immer wieder eine neue Instanz erstellt.
Jedoch crash es gleich bei FFirst.Data := param mit einer AV.
Was tun?
  Mit Zitat antworten Zitat