In einer Memo suchen?

[Sharky]

Hai Christian,

ich habe das jetzt mal mit einem SynMemo probiert. Es geht bei mir nur mit diesem Code richtig:

http://www.sharkys-home.de/smiles/finger.gif

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ipos : Integer;
begin
  iPos := pos(trim(Edit1.Text), SynMemo1.Text);
  if iPos = 0 then exit;
  SynMemo1.SelStart := iPos;
  SynMemo1.SelEnd   := SynMemo1.SelStart+length(trim(Edit1.Text));
end;