19.12.2006, 23:57
общий
это ответ
Здравствуйте, Дианочка!
Я так понал искать надо в Memo ?
Код в приложении.
Удачи!
Приложение:
procedure TForm1.Button1Click(Sender: TObject);vari:integer;CP: TPoint;beginfor i:=0 to Memo1.Lines.Count-1 do begin if memo1.Lines[i]=‘Искомая строка‘ then //только строка полностью begin Memo1.SetFocus; CP.X:=0; Cp.Y:=i; memo1.CaretPos:=CP; memo1.SelStart; memo1.SelLength:= length(memo1.Lines[i]); end; end;end;