Главная страница
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
6-1161440921
jimy
2006-10-21 18:28
2007.04.08
ICS, TWSocket


2-1174060080
Malik
2007-03-16 18:48
2007.04.08
Вопрос по SortGrid y


15-1173698830
vasIZmax
2007-03-12 14:27
2007.04.08
FOR or WHILE


2-1174455382
User_OKA
2007-03-21 08:36
2007.04.08
Алгоритм


1-1171298579
Vid0g
2007-02-12 19:42
2007.04.08
Добавление/Извлечение ресурсов в программе