In einer Memo suchen?

[Christian Seehase]

Moin Sharky,

dann geht's noch viel kürzer, weil man ja nicht erst die Zeile und deren Anfang ermitteln muss

Delphi-Quellcode:

  iPos := pos(Edit1.Text,Memo1.Text);
  if iPos = 0 then exit;
  Memo1.SelStart  := iPos-1;
  Memo1.SelLength := length(Edit1.Text);

@Citybreaker:
SynMemo kennt aber SelEnd, und daraus kann man da ja die Länge berechnen.

Delphi-Quellcode:

  iPos := pos(Edit1.Text,SynMemo1.Text);
  if iPos = 0 then exit;
  SynMemo1.SelStart := iPos-1;
  SynMemo1.SelEnd   := SynMemo1.SelStart+length(Edit1.Text)-1;