614___________________________________________

ttpragma package(smart init)
^pragma resource "*.dfm"

       
      . BTOJ
 ,       .dfm    
,     .       ]
     .

11.2.5   #  ##

  #    , ]
   ().      
  . ,    :

ttdefine Pers(x) Labell->Caption = " " 
      

Pers();

    

Labell->Caption = " " ""

    #   . , 
  ,  ()   
,      

Labell->Caption = " "

 ##   (, )  
,   

ftdefine Concat(x,y) x ## 

      Concat(Edit,l)  
 Editl.

11.3 

11.3.1  

        1
   .  4  : ,  
,  ( )  . : 25  -5  
, 4.8, 515, 515, -5.18     , '', '\
'\', '007'   ,     .

    ,   :

.     ,    :

  ( 0  7). : 032.    08  
  ,  8    . 
     037777777777. ,  "
, .

         x, 
    ( 0  F,    
   ). : OXF01.  
    OxFFFFFFFF. ,   
.