Поиск текста в Memo1- Я ваще запутался

[kugagach]

Долго и упорно пытаюсь описать событие onFind в FindDialog1......................(1 .5 месяца это борщь)...........
Какие варианты только не пробовал ,слил с нэта пример сдинамической памятью (ТУТ Я НИЧЕГО НЕ ПОНЯЛ):

procedure TForm1.FindDialog1Find(Sender: TObject);
   var
 Buff,P,FT: PChar;
 BuffLen: Word;
begin
 with Sender as TFindDialog do
  begin
   GetMem(FT, Length(FindText) + 1);
   StrPCopy(FT, FindText);          
   BuffLen:= memo1.GetTextLen + 1;  
   GetMem(Buff, BuffLen);           
   memo1.GetTextBuf(Buff, BuffLen); 
   P:= Buff + memo1.SelStart + memo1.SelLength;
   P:= StrPos(P, FT);
   if P=nil then MessageBeep(0)
   else
    begin
     memo1.SelStart:= P - Buff;
     memo1.SelLength:= Length(FindText);
    end;
   FreeMem(FT, Length(FindText) + 1);
   FreeMem(Buff, BuffLen);   Memo1.SetFocus;
  end;
end;

ОБЪЯСНИТЕ ПОЖАЛУЙСТА КАК ГРАМОТНО И ПРАВИЛЬНО ОСУЩЕСТВИТЬ ПОИСК ,А ГЛАВНОЕ ЗАМЕНУ ТЕКСТА - ЧТОБЫ РАБОТАЛО КАК В WORDе???

вообще этот код работает ,но когда жмешь "найти далее"-в диалоге за менить, все виснет.
Вот что там забито:

procedure TForm1.ReplaceDialog1Find(Sender: TObject);
  begin

   with  ReplaceDialog1   do
  while True do
   begin
    if memo1.SelText <> FindText then
    FindDialog1Find(Sender );
    if memo1.SelLength = 0 then Break;
    memo1.SetFocus;

    if  frReplaceAll in ReplaceDialog1.Options  then Break;
   end;


end;

[Карась]

Вот пример как надо искать и заменять текст в Мемо.
Но и этот код можно улучшить. Например сделать чекбокс "Без учёта регистра" и ползовать функции AnsiLowerCase, AnsiUpperCase.

Впринципе тут много ещё что можно говорить о поиске и замене....

адд: Т.к. многим качать лень, выкладываю сырец....

Procedure TForm1.Button1Click(Sender: TObject);
Var I : Integer;
    S : String;
Begin
If CheckBox1.Checked = False Then
  Begin
    I := Pos(Edit1.Text, Memo1.Text);
      If I > 0 Then
        Label3.Caption := 'Текст "' + Edit1.Text +
        '" был найден в позиции ' + IntToStr(I)
      Else Label3.Caption := 'Текст не найден';
  End
Else
  Begin
    S := Memo1.Text;
    I := Pos(Edit1.Text, S);
    If I > 0 Then
      Begin
        Label3.Caption := 'Текст "' + Edit1.Text +
        '" найденный в позиции ' + IntToStr(I) +
        ' был заменён на ' + Edit2.Text;
        Delete(S, I, Length(Edit1.Text));
        Insert(Edit2.Text, S, I);
      End
      Else Label3.Caption := 'Текст не найден';
    Memo1.Text := S;
  End;
End;

[kugagach]

Спасибо большшое!!!!!
но это не помогло
мне надо было событие onFind и onReplace в FindDialog и ReplaceDialog
описать .
Ну а пока я ждал ответов на свой вопрос инадеялся на знания других,
в руки ко мне попа
(совершенно случайно) учебник по Delfi ..... вот что из этого получилось:
ПОЛНОЦЕННЫЙ ПОИС ТЕКСТА В MEMO1:

 {нажатие на кнопку в меню правка "Найти"}
procedure TForm1.N16Click(Sender: TObject);
begin   {открываем диалог}
with FindDialog1 do begin
  {начальное значение текста поиска - текст, выделенный в Memo1}
  FindText:=Memo1.SelText;
  {выполнение}
  Execute;
 end;
end;

{обработчик события onFind}
procedure TForm1.FindDialog1Find(Sender: TObject);
   var
{объявляем указатели и переменные}
 Buff,P,FT: PChar;
 BuffLen: Word;
begin
 with Sender as TFindDialog do
  begin
{выделение динамической памяти под искомый текст
+1 для нулевого символа в конце строки}
   GetMem(FT, Length(FindText) + 1);
{вставка в дин.пам. искомого текста + нулевой символ в конце строки}
   StrPCopy(FT, FindText);
{найдем длину строки свойства Text, необходимую для
задания размера буфера в методе GetTextBuf}
   BuffLen:= memo1.GetTextLen + 1;
{выделение динамической памяти под текст в котором будем искать}
   GetMem(Buff, BuffLen);
{Записываем в заданный буфер фиксированного размера
 значение свойства Text.}
   memo1.GetTextBuf(Buff, BuffLen);
{определяем откуда начинать поиск}
   P:= Buff + memo1.SelStart + memo1.SelLength;
{поиск}
   P:= StrPos(P, FT);
{если ничего не найдено}
if P=nil then begin
                {выдаём сообщение}
                MessageBeep(0);
                ShowMessage ('Текст "' + FindText + '"не найден');
                 end
                {иначе...}
            else
               begin       {...выделяем текст}
                memo1.SelStart:= P - Buff;
                memo1.SelLength:= Length(FindText);
               end;
      {освобождаем память (точно столько же сколько выделяли)}
   FreeMem(FT, Length(FindText) + 1);
   FreeMem(Buff, BuffLen);   Memo1.SetFocus;
  end;
end;

{нажатие на кнопку в меню правка "Заменить"}
procedure TForm1.N17Click(Sender: TObject);
begin
 with ReplaceDialog1 do begin
   {начальное значение текста поиска - текст, выделенный в Memo1}
                        FindText:=Memo1.SelText;
                        {выполнение}
                        Execute;
                        end;

end;

{обработчик события onFind в ReplaceDialog1 }
procedure TForm1.ReplaceDialog1Find(Sender: TObject);
begin
 with  ReplaceDialog1   do
   begin
    FindDialog1Find(Sender );
    memo1.SetFocus;
   end;
end;

{обработчик события onReplace, onReplaceall}
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
label 10,20  ;
begin
{если текст выделен и совпадаеет с тем который нужно заменить...}
 if Memo1.SelText=ReplaceDialog1.FindText
                then
                     10:
                         begin
                         {...заменяем его и...}
                         memo1.SelText:=ReplaceDialog1.ReplaceText;
                         {...ищем следующее совпадение и...}
                         FindDialog1Find(Sender );
                         {показываем его}
                         Memo1.SetFocus;
                         end
{если текст не выделен или не совпадаеет с тем который нужно заменить...}
                     else
                         begin
                         {ищем его}
                         FindDialog1Find(Sender );
                         {и возвращаемся к началу }
                         goto 10;
                         end;
{если нажата кнопка "Заменить Все" то ...}
 if  frReplaceAll in ReplaceDialog1.Options  then
 {проверяем есть ли что заменять и}
         if Memo1.SelText=ReplaceDialog1.FindText then
                        {опять возвращаемся к началу}
                                      goto 10;
 end;
end.

[kugagach]

А вот вообще готовй редактор текста!
работает без ошыбок, с комментариями хть щас контрольную втавляй и сдавай !!!ТОЛЬКО НЕ В САМАРСКИЙ ПГАТИ!!!

[dr.Chas]

Сообщение от kugagach

Спасибо большшое!!!!!
Ну а пока я ждал ответов на свой вопрос инадеялся на знания других,
в руки ко мне попа
(совершенно случайно) учебник по Delfi ..... вот что из этого получилось:
ПОЛНОЦЕННЫЙ ПОИС ТЕКСТА В MEMO1:

Извеняюсь канешно, но опечатка смешная получилась

[kugagach]

Сообщение от dr.Chas

Извеняюсь канешно, но опечатка смешная получилась

Да уж нарочно не придумаешь