Function, Result als stringlist?

[himitsu]

Oder so:

Delphi-Quellcode:

function bla(s: string; c: char): TStringList;
begin
  Result := TStringList.Create;
  while Pos(c, s) > 0 do begin
    result.Add(Copy(s, 1, Pos(c, s)));
    Delete(s, 1, Pos(c, s));
  end;
end;


var SL: TStringList; 
begin
  {sollte in SL vorher schon was sein => SL.Free}
  SL := bla('4t54gfd', 'f');
  SL.FreeAndNil;
end;