数据类型之记录(record)..With XXX do begin... end;

最新推荐文章于 2022-10-04 17:19:56 发布

weixin_30522183

最新推荐文章于 2022-10-04 17:19:56 发布

阅读量129

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/BillLei/p/4286061.html

版权

 
       type 
      
       MailingListRecord =  
       record    
       { 声明记录用关键字record} 
      
       FirstName:  
       string 
       ; 
      
       LastName:  
       string 
       ; 
      
       Address:  
       string 
       ; 
      
       City:  
       string 
       ; 
      
       State:  
       string 
       ; 
      
       Zip:  
       Integer 
       ; 
      
       end 
       ; 
      
       var 
      
       MLRecord: MailingListRecord;   
       { 定义一个该记录的变量} 
      
       begin 
      
       { 当使用记录时，用小圆点来访问它的字段} 
      
       MLRecord 
       . 
       FirstName :=  
       'Bruce' 
       ; 
      
       MLRecord 
       . 
       LastName :=  
       'Reisdorph' 
       ; 
      
       MLRecord 
       . 
       Address :=  
       '123 Inspiration Pt.' 
       ; 
      
       MLRecord 
       . 
       City :=  
       'Merced' 
       ; 
      
       MLRecord 
       . 
       State :=  
       'CA' 
       ; 
      
       MLRecord 
       . 
       Zip :=  
       99999 
       ; 
      
       { 使用with语句来简化上面的字段的输入} 
      
       { with表示“用这个对象'MLRecord'做下列”} 
      
       with  
       MLRecord  
       do 
      
       begin 
      
       FirstName :=  
       'Bruce' 
       ; 
      
       LastName :=  
       'Reisdorph' 
       ; 
      
       Address :=  
       '123 Inspiration Pt.' 
       ; 
      
       City :=  
       'Merced' 
       ; 
      
       State :=  
       'CA' 
       ; 
      
       Zip :=  
       99999 
       ; 
      
       end 
       ; 
      
       { with可以减少键入量，同时也使程序可读性更强} 
      
       end 
       ;