   C++Builder_______________________219

/* ToEnd   ,         */
ToEnd = Memol->Text.Length() - StartPos;

/*          

  */

if (FindDialogl->Options.Contains(frMatchCase))
FoundAt = StartPos + Meniol->Text.Substring(StartPos+1,
ToEnd).Pos(FindDialogl->FindText);

else
, , FoundAt = StartPos + Memol->Text.Substring(StartPos+1,

'' ToEnd).Lowercase().Pos(FindDialogl->FindText.Lowercase());

if (FoundAt '.= StartPos) //  
{

Memol->SetFocus();

Memol->SelStart = FoundAt-1;

Memol->SelLength = FindDialogl->FindText.Length();

}
else ShowMessage(" '" + FindDialogl->FindText + "'  ");

}

      RichEdit  -
   ,   .

       
   ,    FindDialogI  ReplaceDialogl. -
      OnReplace 
ReplaceDialogl.    ,    -
           
      .   -
     OnFind  ,   , 
       (. . 3.48),  
  OnReplace.   ,    -
 RichEdit,   :

void_fastcall TFormI::ReplaceDialoglFind(TObject *Sender)
{

//    " ",    
if(ReplaceDialogl->Options.Contains(frReplaceAll))
ReplaceDialoglReplace(Sender) ;

}

//

void_fastcall TFormI::ReplaceDialoglReplace(TObject *Sender)
{
if (RichEditl->SelText != "") //    

<
//   

RichEditl->SelText = ReplaceD'ialogl->ReplaceText;

//    " ",   
if (RepiDialogl->0ptions.Contains(frReplaceAll))
RichEditl->SelStart += ReplaceDialogl->ReplaceText.Length();

}

else if (ReplaceDialogl->Options.Contains(frReplace))                  '
{
ShowMessage(" '" + ReplaceDialogl->FindText + "'  ");

return;

}

//    " ",    
if (ReplaceDialogl->Options.Contains(frReplaceAll))
ReplaceDialoglFind(Sender) ;

1