982_____________________________________________ 15

         
EConvertError.

 Assign      

<-> = <->;

    <->   
<->.   Assign    .  -
 Assign      .

   ,    D->Assign(S)  D 
,      S ( S      -
 ).   Assign     ,  
   AssignTo.    TPersistent  -
  ,   .    S->AssignTo(D).
   AssignTo         -
,   AssignTo  TPersistent   .



1.     FontDiaolgl,   -
       .   -
       :

if (FontDialogl->Execute())

Font->Assign(FontDialogl->Font);

2.        SL1  SL2  TStringList.
    ComboBoxl,      
 SL1  SL2    ,     
   RadioGroupl.    OnClick   -
   ,  .  
ComboBoxl->ItemIndex =  ,     -
  .

TStringList *SL1 = new TStringList;

TStringList *SL2 = new TStringList;

void_fastcall TFormI::RadioGrouplClick(TObject *Sender)
{

if(RadioGroupl->ItemIndex == 0)
ComboBoxl->Items->Assign(SL1) ;

else ComboBoxl->Items->Assign(SL2) ;

ComboBoxl->ItemIndex = 0;

}

3.  Assign       -
 , ,    TClipboard 
  TBitmap.      -


Clipboard()->Assign(Bitmap);

      

Bitmap->Assign(Clipboard()) ;

AssignTo____________________________________________

    ,     , -
    Assign