String in drei teilen

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