In Memo suchen und zur zeile springen

[ste_ett]

Mit

TMemo.SelStart und

TMemo.SelLength kannst du ein Textstück in einem Memo markieren.

Kleines Beispiel.
QnD!

Delphi-Quellcode:

var
  i, iLen, iPos: Integer;
  s: String;
begin
  iLen := 0;
  s := Edit1.Text;
  for i := 0 to Memo1.Lines.Count-1 do
  begin
    iPos := Pos(s, Memo1.Lines[i]);
    if (iPos <> 0) then
    begin
      Memo1.SelStart := iLen + iPos -1;
      Memo1.SelLength := Length(s);
      Memo1.SetFocus;

      Break;
    end
    else
      Inc(iLen, Length(Memo1.Lines[i]));
  end;
end;