Komplexe Datentypen als Rückgabewert einer Funktion

[Der_Unwissende]

Zitat von 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.

Nun ja, die StringList ist Rückgabewert einer Funktion, der jenige der sie empfängt muss sich also darum kümmern, dass sie wieder frei gegeben wird. Das geht aber logisch aus einem solchen Typen als Rückgabewert hervor (gut, ist vielleicht nicht der sauberste/schönste Weg). Aber würde ich sie schon freigeben wäre die Funktion sinnfrei.

Kannst du natürlich auch als procedure machen und dann halt

Delphi-Quellcode:

procedure TfmAppPanel.GetTokenList(sCommand, sSeparator : string; result : TStringList) ;
begin
  Result.clear;
  Result.Delimiter := Seperator;
  Result.DelimitedText := sCommand;
end;

Sorry für den wie immer unkreativen Namen des Parameters, hatte nur keine Lust den Quellcode zu weit zu ändern (zwei weitere Umbenennungen sind viel )

Gruß