String trennen

[dj2289]

Hallo zusammen,

wie kann ich einen String trennen? (Kann auch ein Integer sein):
Also dass z.B hallo:wer zu 2 Strings wird? Der : als trennung dient?
Danke für eure Antwort!

[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;

[TheAn00bis]

Zitat von 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;

So kompliziert?

Warum nicht einfach so:

Delphi-Quellcode:

procedure test;
var ausgangsString, string1, string2: string;
begin
ausgangsstring:='test1:test2';
  try
        string1:=copy(ausgangsstring,0,pos(':',ausgangsstring)-1);
        string2:=copy(ausgangsstring,pos(':',ausgangsstring)+1,length(ausgangsstring));
        showmessage('erster Teil: '+string1+', zweiter Teil: '+string2);
  except showmessage('Fehler: ":" ist nicht im Ausgangsstring enhalten!');
end;
end;

[Khabarakh]

Pos wirft keine Exception .

[sakura]

http://www.delphipraxis.net/internal...ct.php?t=73303 gehts weiter...

......