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ß