String trennen

[ichbins]

geh den String in einer for-Schleife durch und suche nach dem ':'.

Delphi-Quellcode:

var
  i:integer;
  s:string;
  splitters:tstringlist;
begin
  s:='hallo:du';
  splitters:=tstringlist.create;
  splitters.add('');
  for i:=1 to length(s) do
    if s[i]<>':' then
      splitters.strings[splitters.count-1]:=splitters.strings[splitters.count-1]+s[i]
    else
      if splitters.strings[splitters.count-1]<>'' then
        splitters.add('');
end;