Einzelnen Beitrag anzeigen

Moony

Registriert seit: 29. Jul 2003
Ort: Essen
454 Beiträge
 
Delphi 2010 Professional
 
#1

TList als Rückgabeparameter [erledigt]

  Alt 14. Aug 2008, 10:06
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
Ich weiß, daß ich nichts weiß! Sokrates
  Mit Zitat antworten Zitat