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