finddialog options

[mido10885]

كيف استخدم options فى ال finddialog
يعنى up و Down
و match case
انا أستخدم الكود التالي مع finddialog find

كود :

with TFindDialog(Sender) do begin TextLength:=Length(Editor.Lines.Text); SPos:=Editor.SelStart; SLen:=Editor.SelLength; SearchString := Copy(Editor.Lines.Text,SPos + SLen + 1,TextLength - SLen + 1); SelPos := Pos(FindText, SearchString); if SelPos > 0 then begin PreviousFoundPos := SelPos + Slen - 1; Editor.SelStart := (SelPos - 1) + (SPos + SLen); Editor.SelLength := Length(finddialog1.FindText); Editor.SetFocus; end else ShowMessage('Cannot find "' + FindDialog1.FindText + '"'); end

[kachwahed]

السلام عليكم
من هنا:

كود :

http://delphi.about.com/od/vclusing/l/aa100599.htm

كود :

http://docwiki.embarcadero.com/CodeSamples/en/FindText_%28Delphi%29

بالتوفيق.

[mido10885]

شكرااااااااااااا