Die verkettete Liste

[Koller]

Delphi-Quellcode:

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

TParameterlist = class
    private
      FFirst: PItem;
      FCurrently: PItem;



procedure TParameterlist.AddAtEnd(AParameter: TParameter);
var NewItem: PItem;
begin
  New(NewItem);
  NewItem.Data := AParameter;
  NewItem.Next := nil;
  //If list is still empty
  if (FFirst = nil) then
  begin
    FFirst := NewItem;
    FCurrently := NewItem;
  end
  //list just has content
  else begin
    FCurrently := FFirst;
    //go step by step to the end
    while (FCurrently.Next <> nil) do
      FCurrently := FCurrently.Next;
    FCurrently.Next := NewItem;
  end;

  inc(FCount);
end;


function TParameterlist.GetParameter(index: integer): TParameter;
var i: integer;
begin
  //List index mustn't be higher than the maximum!
  if (index <= High) then
  begin
    //return the first parameter
    if (index = 0) then
      result := FFirst.Data
    else begin
      i := 0;
      //go step by step through the list and fetch the right one!
      FCurrently := FFirst;
      while (i < index) do
      begin
        inc(i);
        FCurrently := FCurrently.Next;
      end;
      result := FCurrently.Data;
    end;
  end
  else result := nil;
end;



//Ausgabe im Programm
procedure TForm1.Button1Click(Sender: TObject);
begin
list := TParameterlist.Create;
param := TParameter.Create('uschi','string');

end;

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to 6 do
  begin
    param.Name := 'Nummer '+inttostr(i);
    list.AddAtEnd(param);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var i: integer;
begin
   //egal, welchen Index ich nehme, er gibt immer 'Nummer 6' aus =(
   showmessage(list.Parameter[2].Name);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
showmessage(inttostr(list.count));
end;

Ich bastele soeben an einer verketteten Liste (TParameterList). Die Routinen zum Hinzufügen und Abfragen eines Parameters über den Index stehen schon. Jedoch funktioniert dieses Abfragen nicht richtig.
Egal, welchen Index ich bei List.Parameters[index].Name angebe, ich bekomme immer den Namen des letzten Eintrage (hier "Nummer 6")).
Sieht jemand Fehler im Code? :lupe:
Hinweis: Es gibt einen Crosspost in der EE!