Stringmanipulation

[2981611]

Delphi-Quellcode:

procedure TForm1.TestClick(Sender: TObject);
var
I1 : Integer;
I2 : Integer;
I3 : integer;
I4 : Integer;
I5 : Integer;
Var1 : String;
Var2 : String;
Var3 : String;
begin
Down := 's:85:"Var1 : 3235019924 
 Var2 : Test1234 
 Var3 : Test123456 
";';
I1 := Pos('Var1 :',Down.Text);
Var1 := Copy(Down,I1+8,I1+2);
I2 := Pos('
 Var2 : ',Down);
I3 := Pos(' 
 Var3 :',Down);
Var2 := Copy(Down,I2+13,I3-38);
I4 := Pos('
 Var3 : ',Down);
I5 := Pos('
";',Down);
Var3 := Copy(Down,I4+12,I5-76);

Ich komme absolut nicht Weiter.

Zitat von NamenLozer:

Mit der Funktion PosEx kannst du dir da einiges erleichern. Oder du schaust dir mal reguläre Ausdrücke an, wozu du aber Fremdkomponenten installieren musst.

Welche Fremdkomponenten meinst du?