218______________________________________________ 3

RichEditl->SelStart = FoundAt;

RichEditl->SelLength = Fi,ndDialogl->FindText. Length ();

)

else ShowMessage(" '" + Fin.dDialogl->FindText + "'  ");'
}

 MFindClick       
,   RichEditI,      FindDialogl.
 FindDialoglFind    OnFind 
FindDialogl.  ,       
.        .  -
    ( StartPos  ToEnd),  
 .       -
 Option      .  -
 FindText   .      
 ( FindText  -1),       
  ShowMessage.

       RichEdit.  -
     Memo    Pos 
AnsiString,    :

int _fastcall Pos(const AnsiStrings subStr) const;

        subStr
 ,     .    1.  subStr 
  ,   0.

        AnsiString:

Substring  LowerCase.     :

AnsiString   fastcall Substring(int index, int count) const;

  ,      index  -
 count .

 LowerCase,  

AnsiString   fastcall LowerCase const;

   S,    .

      .    -
   Memol      MFind   -
   ,   Memol.    -
            .

,  ,    :

void _fastcall TFormI::MFindClick(TObject *Sender)

{

/*      ,   Memol */

FindDialogl->FindText = Memol->SelText;

FindDialogl->Execute() ;

t
//

.   void _fastcall TFormI::FindDialoglFind(TObject *Sender)
^   (

int FoundAt, StartPos, ToEnd;

/*   ,      

 ,      */

StartPos = Memol->SelStart;                                         i
if (Memol->SeiLength)                                               !
StartPos += Memol->SetLength;

I