Поиск в TRichEdit с помощью TFindDialog СНИЗУ ВВЕРХ [D7, 2000, XP]
Аноним © (2007-03-20 21:49:00)
Как реализовать поиск текста снизу вверх? Плиз помогите очень
срочно нужно
Процедура поиска:
procedure TForm1.FindDialog1Find(Sender: TObject);
var FoundAt:longint;
Startpos,ToEnd:integer;
begin
with RichEdit1 do
begin
if (SelLength > 0) or (SelStart > 0) then
StartPos:=SelStart + SelLength
else
StartPos:=0;
if frDown in FindDialog1.Options then
ToEnd:=Length(Text)- StartPos
else
ToEnd:=-StartPos; //вот тут как сделать поиск снизу
вверх?
FoundAt:=Findtext(Finddialog1.findtext,startpos,toend,[]);
if FoundAt <> -1 then
begin
SetFocus;
selstart:=FoundAt;
selLength:=Length(finddialog1.findtext);
end else
messageDlg(concat('Текст "',finddialog1.findtext,'" не
найден'),mtError,[mbok],0);
end;
end;
Аноним (2007-03-20 22:09:00) [1]
Всё, уже нашёл (Standart Actions)
Наверх 
ЧАТ |
Орешник |
|
