TList als Rückgabeparameter [erledigt]

[Moony]

Hallo zusammen,

ich möchte innerhalb einer Funktion ein paar werte in einer TList speichern. Am Ende der Funktion möchte ich die gefüllte Liste als Rückgabewert an den Result übergeben. Das mach ich folgendermaßen:

aufrufende Zeile:

Delphi-Quellcode:

// locale Variable vom Typ TList
TempList := SaveList();

die Funktion SaveList:

Delphi-Quellcode:

function TfmMain.SaveList: TList;
var Lst : TList;
begin
  Lst := TList.Create;
  try
    New(Pointer);
    try
      for i := 0 to Zähler - 1 do
      begin
        Pointer^.Variable := Fülle mit irgendwas
        ...
        Lst.Add(Pointer);
      end;
    except
      Dispose(Pointer);
    end;
  finally
    Result := Lst; // habs auch mit Result.Assign(Lst) versucht
    Lst.Free;
  end;
end;

Der Punkt ist, dass die Listeninhalte aus der Funktion nicht an die TempListe übergeben werden. Hoffe ihr könnt mir helfen.

Gruß, Moony