E ericyin Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-24 #1 我需要自定义一个数据类型fileRecord。其中fileRecord.Number应该是1到4的整数,fileRecord.FileName应该是字符串。 该在程序的什么地方定义?type? private? 具体如何写代码?
我需要自定义一个数据类型fileRecord。其中fileRecord.Number应该是1到4的整数,fileRecord.FileName应该是字符串。 该在程序的什么地方定义?type? private? 具体如何写代码?
Z z_cd Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-24 #2 type FileRecord = Record Number: (1, 2, 3, 4); FileName: string; end; ...
B BaKuBaKu Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-24 #3 To z_cd: 你编译过吗? To ericyin: 直接定义成 Integer 就行了,自己使用的时候注意就行了。 type FileRecord = Record Number: integer; FileName: string; end;
To z_cd: 你编译过吗? To ericyin: 直接定义成 Integer 就行了,自己使用的时候注意就行了。 type FileRecord = Record Number: integer; FileName: string; end;
M mat Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-24 #4 应该在type中定义类型,在var中声明变量。我试了是可以的。全窗体代码如下。 该窗体上什么控件都没有,但可以运行。 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type filerecord=record Number:set of 1..4; filename:string; end; TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; a:filerecord; implementation {$R *.DFM} end.
应该在type中定义类型,在var中声明变量。我试了是可以的。全窗体代码如下。 该窗体上什么控件都没有,但可以运行。 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type filerecord=record Number:set of 1..4; filename:string; end; TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; a:filerecord; implementation {$R *.DFM} end.