Copy Pos Delete - Bin auf dem Holzweg...

[Nightshade]

Zitat von SirThornberry:

@Nightshade: Die function wird doch nie ausgeführt weil
if NOT assigned(result) then exit; immer dafür sorgt das die function frühzeitig verlassen wird. Und durch das Delete und Insert ziemlich unperformant

Habs gerade getestet, Die Zeile ist wirklich über, weil Result immer assigned ist )

Also überspringt er sie immer..

Delphi-Quellcode:

function split(s:string; splitchar : char) : TStrings;
var a : integer;
  tmp : string;
begin
  result := TStringlist.create;
  tmp := s;
    a := pos(splitchar,tmp);
  while a > 0 do begin
    delete(tmp,a,1);
    insert(#13#10,tmp,a);
    a := pos(splitchar,tmp);
  end;
  result.Text := tmp;
end;

Dann also so