String in drei teilen

[fox67]

ich habe einen string der so aussieht "test|test1|test2" nun will ich daraus 3 strings machen die dann so ausehen "test", "test1", "test2". weiß jeman wie dass funktioniert

[mkinzler]

-StringListe (Delimiter/DelimitedText)
-Explode()

[fox67]

in einem php scribt sieht dass so aus

Code:

 $ausgabe = stripslashes($ausgabe);
   $zerlegen = explode("|", $ausgabe);

wie sieht dass in delphi aus.

[mkinzler]

Lösung per Stringliste

Delphi-Quellcode:

var
  sl: TStrings;
...
begin
  sl := TStringlist.Create;
  sl.Delimiter := '|';
  sl.DelimitedText := 'test|test1|test2';
  ...
  sl.Free;

sl.Strings[0] enthält dann 'test1';

[fox67]

Zitat:

sl.Strings[0] enthält dann 'test1'

nicht 'test'?

[scrat1979]

Entweder eine StringListe wie von mkinzler schon genannt oder Du bastelt Dir eine eigene Funktion:

z.B.

Delphi-Quellcode:

procedure ExplodeString(DelimitedString : String; VAR Part1, Part2, Part3 : String);
begin
  (* Erster Teil *) 
  Part1 := copy(DelimitedString, 1, Pos('|', DelimitedString)-1);
  (* Zweite Teil *)
  DelimitedString := Delete(DelimitedString, 1, Pos('|', DelimitedString));
  Part2 := copy(DelimitedString, 1, Pos('|', DelimitedString)-1);
  (* Dritter Teil*)
  Part3 := copy(DelimitedString, Pos('|', DelimitedString)+1, Length(DelimitedString));
end;

Aufruf:

Delphi-Quellcode:

 VAR GanzerString, Teil1, Teil2, Teil3 : String;
 [...]
 GanzerString := 'ErsterTeil|ZweiterTeil|DritterTeil';
 ExplodeString(GanzerString, Teil1, Teil2, Teil3);
 ShowMessage(Teil1);
 ShowMessage(Teil2);
 ShowMessage(Teil3);

end;
[/DELPHI]

... Ungetestet!

[aurikel_Max]

Zitat von fox67:

Zitat:

sl.Strings[0] enthält dann 'test1'

nicht 'test'?

sl.Strings[0] enthält 'test', wenn du "test|test1|test2" einliest - er ist wahrs. davon ausgegangen, dass die Teile test1, test2 und test3 heißen.

[fox67]

scrat1979 ich habe dein code mal ausprobiert da der von mkinzler nicht funktioniert hatt aber es kommen folgende fehlermeldungen:
[Error] Unit2.pas(30): Incompatible types: 'String' and 'Integer'
[Error] Unit2.pas(32): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit2.pas'

[-187-]

Wobei die Funktion nicht auf 3 Parts begrenzt sein sollte

Schöner wäre eine while-do Schleife und als Result ein dynamisches Array

[-187-]

Na wie wäre es mal mit selber testen ?