Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.08;
Скачать: CL | DM;

Вниз

Поиск в TRichEdit с помощью TFindDialog СНИЗУ ВВЕРХ   Найти похожие ветки 

 
Аноним   (2007-03-20 21:49) [0]

Как реализовать поиск текста снизу вверх? Плиз помогите очень срочно нужно
Процедура поиска:

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) [1]

Всё, уже нашёл (Standart Actions)



Страницы: 1 вся ветка

Текущий архив: 2007.04.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.03 c
3-1169124954
dest81
2007-01-18 15:55
2007.04.08
interbase SQL


4-1163699129
Wadim
2006-11-16 20:45
2007.04.08
Как заморозить программу SuspendedThread?


11-1154689366
oleg_l_k
2006-08-04 15:02
2007.04.08
восстановление БД(IB)


15-1173955310
@!!ex
2007-03-15 13:41
2007.04.08
3D изображение не на плоскости


2-1174154097
Двоишник
2007-03-17 20:54
2007.04.08
Ftp client