Aufspalten eines Strings mit TABs

[quendolineDD]

Jo, oder du schreibst dir eine kleine Funktion, welche selbst die einzelnen Strings erstellt

Delphi-Quellcode:

function cutStr(delimiter: char; astring: string):array of string;
var i : integer;
begin
setlength(result, 0);
i := 0;

while (pos(delimiter, astring) <> 0) do begin
inc(i);
setlength(result, i);
result[i]:= copy(astring, 0, pos(delimiter, astring)-1);
delete(astring, 1, pos(delimiter, astring));
end;

end;

Für TAB einfach #9 eingeben
PS: Code ist ungetestet, habe im mom kein Delphi zur Hand. Müsste jedenfalls so ca. gehen ;o)