在一个单元中声明的多个类互为友元类

最新推荐文章于 2023-05-25 10:32:50 发布

Hustudent20080101

最新推荐文章于 2023-05-25 10:32:50 发布

阅读量1.5k

点赞数

分类专栏： delphi 文章标签： delphi button class

delphi 专栏收录该内容

82 篇文章 1 订阅

订阅专栏

delphi 友元类

分类： VCL初探 2009-11-10 14:40 156人阅读评论(0) 收藏举报

在一个单元中声明的多个类互为友元类

[delphi]view plaincopy 
    
 type  
   TMyClass = class  
     GUID: string;  
     Name: string;  
     bSex: Boolean;  
     Tel : string;  
   end;  
   
   TForm1 = class(TForm)  
     Button1: TButton;  
     Memo1: TMemo;  
     Button2: TButton;  
     procedure Button2Click(Sender: TObject);  
     procedure FormCreate(Sender: TObject);  
   private  
     { Private declarations }  
     FName: string;  
   public  
     { Public declarations }  
   end;  
   
 var  
   Form1: TForm1;  
   
 implementation  
   
 {$R *.dfm}  
   
 procedure TForm1.Button2Click(Sender: TObject);  
 var  
   obj: TMyClass;  
 begin  
   obj := TMyClass.Create;  
   obj.Name := Form1.FName;  
   ShowMessage(obj.Name);  
   obj.Free;  
 end;  
   
 procedure TForm1.FormCreate(Sender: TObject);  
 begin  
   FName := '兵临成下';  
 end;  