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