Delphi-Quellcode:
var t_list: TStringList;
begin
result := '';
t_list := TStringList.Create;
try
t_list.Delimiter = sep;
t_list.Text := Text;
result := t_list[index];
finally
FreeAndNil(t_list);
end;
end;
ungetestet. schau mal wie schnell die is...
// Edit: VERDAMMT! wer lesen kann is klar im vorteil... :/
Ignoriert diesen Post einfach...