Текущий архив: 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.04 c