客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
说明： Delphi的类声明有两种方法，一种是继承了Delphi的内建类的声明，另一种则是完全自定义的类声明。 这两种类的区别不仅在于声明程序的不同，还会影响到对象实体的内存管理。
1 unit Unit1;
2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls, Buttons; 8 9 type 10 TForm1 = class(TForm) 11 btn1: TBitBtn; 12 btn2: TBitBtn; 13 procedure btn1Click(Sender: TObject); 14 procedure btn2Click(Sender: TObject); 15 private 16 { Private declarations } 17 public 18 { Public declarations } 19 end; 20 21 TMyCalss1 = class //声明一个继承Delphi内建类的Class类 22 public 23 value1:Integer; 24 string1:string; 25 end; 26 27 TMyClass2 = object //声明一个完全自定义的Object类 28 public 29 value1:Integer; 30 string1:string; 31 end; 32 33 var 34 Form1: TForm1; 35 36 implementation 37 38 {$R *.dfm} 39 40 procedure TForm1.btn1Click(Sender: TObject); 41 var 42 TTest1:TMyCalss1; 43 begin 44 TTest1 := TMyCalss1.Create; //必须使用其父类的构造方法 45 46 TTest1.value1 := 12; 47 TTest1.string1:= '您好'; 48 ShowMessage(IntToStr(TTest1.value1) + #13 + TTest1.string1); 49 50 TTest1.Free; //必须使用其父类的析构方法 51 52 end; 53 54 55 56 procedure TForm1.btn2Click(Sender: TObject); 57 var 58 TTest2:TMyClass2; 59 begin 60 61 TTest2.value1 := 34; //不必使用Create的构造方法，可以直接构造该对象的实体，并且操作该对象的成员 62 TTest2.string1 := '我好'; 63 ShowMessage(IntToStr(TTest2.value1) + #13 + TTest2.string1); 64 65 end; 66 67 end. |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论