małe pytanko

0

Wstawiłem komponent FindDialog. Mam do niego taki to kod:

procedure TNotatnik.FindDialog1Find(Sender: TObject);
var
x: LongInt;
a, b: integer;
begin
with richedit do
begin

if SelLength  0 then
  a := SelStart + SelLength
else
a :=richedit.SelStart;
b := Length(Text) - a;
x := FindText(FindDialog1.FindText, a, b, [stMatchCase]);
if x  -1 then
begin
  SelStart := x;
  SelLength := Length(FindDialog1.FindText);

end
else showmessage('Nie znaleziono szukanej frazy!');

end;
end;

To polecenie wykorzystuje FindDialog, ale nie wiem jak wykorzystać kierunek szukania tekstu w FindDialog oraz opcje "Uwzgęldniaj całe wyrazy" oraz "Uwzgędniaj wielkość liter". Czy ktoś mógłby mi dać całą te procedurke wykorzystującą w pełni FindDialog, a zwłaszcza kierunek szukania ??

0

Kilka dni temu w jakimś poście Dryobates naisał jak to zrobić
http://www.4programmers.net/forum/viewtopic.php?id=28857

--
Pozdrowienia [cya]
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:-D

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0