Komplexe Datentypen als Rückgabewert einer Funktion

[RavenIV]

Zitat von Der_Unwissende:

Delphi-Quellcode:

function TfmAppPanel.GetTokenList(sCommand, sSeparator : string) : TStringList;
begin
  Result := TStringList.Create;
  Result.Delimiter := Seperator;
  Result.DelimitedText := sCommand;
end;

hiermit erzeugst du aber ein Speicherleck, weil die Stringlist nirgends zerstört (Free) wird.