Also zum auslesen der aktuellen Postition hatte ich mir mal sowas gebastelt ... statt Memo1.SelStart könnte man ja auch 'ne andere Position verwenden.
Delphi-Quellcode:
i := 0; i2 := 0;
While i < Memo1.Lines.Count do Begin
Inc(i2, Length(Memo1.Lines.Strings[i]));
If i2 < Memo1.SelStart Then Break;
Inc(i);
End;
> Die aktuelle Zeile ist i.
Aber hier könnte man es so machen - einfach jede Zeile einzeln durchsuchen
Delphi-Quellcode:
If Memo1.Lines.IndexOf('dein gesuchtes Wort') > 0 Then Begin
For i := 0 to Memo1.Lines.Count - 1 do Begin
If Pos('dein gesuchtes Wort', Memo1.Lines.Strings[i]) > 0 Then Break;
Inc(i);
End;
> Die Position ist i.
End Else > nichts gefunden