Консультация № 67766
19.12.2006, 23:11
0.00 руб.
0 2 2
мне нужно осуществить поиск нужной строки и выделить ее если найдена

Обсуждение

Неизвестный
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;
Неизвестный
20.12.2006, 16:59
общий
это ответ
Здравствуйте, Дианочка!
Посмотри справку по -ции POS может чем нибудь поможет ! справку можно найти в паскалевском хелпе ! Извини если че не понял !
Форма ответа