24-11-2009, 01:40 PM
كيف استخدم options فى ال finddialog
يعنى up و Down
و match case
انا أستخدم الكود التالي مع finddialog find
يعنى 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