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!

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

[aurikel_Max]

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

Hast du den Code 1:1 übernommen?

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
  sl: TStringlist; // oder auch TStrings
begin
  sl := TStringlist.Create;
  sl.Delimiter := '|';
  sl.DelimitedText := 'test|test1|test2';
  ShowMessage(sl.Strings[0]); // zeigt test an
  sl.Free;
end;

Klappt problemlos.

[fox67]

is ja komisch ich habe den code von mkinzler erneut in delphi eingegeben und jetzt funktioniert es plötzlich

[Capa]

nichts für ungut aber ich hab da eher den anschein das dir generell das verständniss
für einige grundfunktionen fehlt, vielleicht mal ein paar kleine tutorials durchlesen
hilft meistens schon enorm.

Ich sag nicht das ich alles kann allerdings kann man viel durch tutorials lernen.
Gibt glaub ich sogar nen thread hier im forum wo verschiedene tutorials aufgelistet
werden.

Wie gesagt ist nciht böse gemeint aber an vielen deiner beiträge merkt man schon das dir
da was fehlt.

Mfg Capa

[scrat1979]

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

hab grad 'nen Fehler gefunden und behoben. Versuch es nochmal...

[TonyR]

Zitat von fox67:

scrat1979 ich habe dein code mal ausprobiert da der von mkinzler nicht funktioniert hatt......

funzt doch einwandfrei!?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStrings;
begin
  sl := TStringlist.Create;
  sl.Delimiter := '|';
  sl.DelimitedText := 'test0|test1|test2';
  ShowMessage(sl[0]+'+'+sl[1]+'+'+sl[2]);
  sl.Free;
end;

Edit: getestet mit D2010

Edit2: Sorry, vergesst es, ist ja schon geklärt, ich hatte das Browserfenster ne Weile offen und nicht aktualisiert

[DeddyH]

Aber dann bitte so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStrings;
begin
  sl := TStringlist.Create;
  try
    sl.Delimiter := '|';
    sl.StrictDelimiter := true; //erst ab Delphi 2006
    sl.DelimitedText := 'test0|test1|test2';
    ShowMessage(sl[0]+'+'+sl[1]+'+'+sl[2]);
  finally
    sl.Free;
  end;
end;

Bei Delphi-Versionen < 2006 hat man auf diese Weise aber Kummer, da sie StrictDelimiter noch nicht kennen. Das bedeutet, dass dort zusätzlich zum Delimiter auch Leerzeichen als Trenner verwendet werden. In dem Fall muss man sich anders behelfen.

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