Hi habe jetzt folgendes hinbekommen..
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var
s, s2: string;
Pos1, Pos2, Pos3: Integer;
begin
s := memo1.Text;
Pos1 := Pos('test', s); // erstes Komma
Pos2 := PosEx('GesLänge/(A):', s, Pos1+1); // zweites Komma
Pos3 := PosEx('GesLänge/(B):', s, Pos2+1); // drittes Komma
s2 := Copy(s, Pos2+14, Pos3 - Pos2 -15); // Text zwischen 2. und 3. Komma
Edit2.text := (Trim(s2)); // Leerzeichen entfernen und ausgeben
end;
Das funktioniert schonmal, er sucht nach dem Wort "test" und nimmt dann den wert zwischen GesLänge(A) und GesLänge/(B)
wie kann ich nun noch über Pos die zeilen / reihen bestimmen ?
also z.B.
pos1 := Pos('test'), s;
Pos2 := PosEx( ?????, s, Pos1+1); // statt ????? z.B. unter gefundenem wort "test" eine reihe darunter.
Memo feld aufbau
test
hallo katze
Reihe 1 = test
Reihe 2 = hallo katze
nun würde ich gerne wissen wie ich auf die reihe zwei per pos komme..
vielen Dank nochmal für die ganzen tipps..