Процедура поиск текста в текстовом файле, Delphi

[BIG_BO]

Помогите с процедурой поиск текста в открытом файле.
Так-же должны существовать параметры поискас учетом регистра, без учета, слово целиком).

[Stilet]

Вообще-то для такого более приспособлен RichEdit а не Мемо, но и в Мемо можно

with Memo do
 for i:=0 to Lines.Count-1 do
  if pos(Слово,Lines[i])<>0 then begin
   Нашли в i-той строке
  end;

А если поставить

  
Слово:=AnsiUpperCase(Слово);
...
if pos(Слово,AnsiUpperCase(Lines[i]))<>0 then begin

То будет поиск без учета регистра.

[BIG_BO]

Mne nado na sobitie OnClick, tam menu/poisk kada najimaesh chtobi okno viskakivalo i tam vibor bil vot etih 3 parametra i poisk..

[Stilet]

Однако ты про FindDialog слышал? Если нет кинь его на форму и поиграйся с ним.

[BIG_BO]

ЧТО то не получается.. помоги

procedure TfrmMain.mmiSearchClick(Sender: TObject);
var
SPos: integer;
begin
with FindDialog do
 begin
   FindText := Memo.SelText;
   Position := Point(TfrmMain.Left,| TfrmMain.Top +
              Memo.Top + Memo.Height);
   Options := Options + [frHideUpDown, frHideWholeWord];
     Execute;
 end;
end;

procedure TfrmMain.mmiStBarClick(Sender: TObject);
begin
mmiStBar.Checked := not mmiStBar.Checked;
StatusBar.Visible := mmiStBar.Checked;
end;
procedure TfrmMain.FindDialogFind(Sender: TObject);
var
Spos: integer;
begin
 with FindDialog do
 begin
  if frMatchCase in Options
   then Memo.SelStart := Pos(FindText,
    Copy(Memo.Lines.Text, SPos + 1,
         Length(Memo.Lines.Text))) + Spos - 1
   else Memo.SelStart := Pos(AnsiLowerCase(FindText),
    AnsiLowerCase(Copy(Memo.Lines.Text, SPos + 1,
                  Length(Memo.Lines.Text)))) + Spos - 1;
  if Memo.SelStart >= Spos
   then
    begin
     Memo.SelLength := Length(FindText);
     SPos := Memo.SelStart + Memo.SelLength + 1;
    end
   else if MessageDlg(
    'Текст "'+FindText+'" не найден. Продолжать диалог?',
    mtConfirmation, mbYesNoCancel, 0) <> mrYes
    then CloseDialog;
 end;
 Memo.SetFocus;
end;

Вот у меня получилось вроде но ошибку выдаёт

Если стираю ту строчку то запускается поиск но ищет хренова как то

Вот посмотрите.. почему возникает ошибка не пойму..

UP!!!!!!!!!!!!!!!!!!!!

[BIG_BO]

Stilet помоги..