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?