678_____________________________________________ 12

          -
-  .     . -,
  i0  ,      
   S1.  i0     
. -,    S2  S1    
 S1,         : Sl.SubStrmg(iO + 1, 255).

          
 ,   Delete  Insert  AnsiString.
 Delete   ,   ,   -
 ,  ,    . 
Insert    ,    ,  -
,    .

        -
, ,  :

int i0 = 1, i = Sl.Pos(S2);

while(i > i0)
(

S1.Delete(i,S2.Length());      //   S2

S1.Insert(S3,i);               //  S3

i0 = i + S3.Length;) ;

i = i0 - 1 + S1.Substring(i0, 255).Pos(S2);

}

      , 
  AnsiString.        
   15.     ,  
   AnsiString   (char *).   ,   AnsiS;

ring    (char *),     .:

    ,    (char *;.
       API Windows   C+4-Builder,
  . ,     -
   Application->MessageBox,   
    (   )  (char *). ;:

     PlaySound    
      .

  AnsiString   (char *)  1;

 c_str()  ,       
    AnsiString,    . 
    S1  S2  AnsiString,     \.
 Application->MessageBox      ,  ;;

Application->MessageBox   :

Application->MessageBox(SI.c_str ,S2.c_str(), MB_OK) ;

     (char *)   AnsiString.  -
  

AnsiString(char *S)

    AnsiString,  , 
 S,   .

12.5  

     
      . 
  ,     .  ,  