Suche bestimmten Wert in Memo und zeige mir den neben stehenden Wert an im Edit feld

[klaus9]

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..