定义为记录类型也可以吧
type
TMytype = record
iNum : integer;
iAge : integer;
cName : array [0..6] of char;
end;
type
TMytype = record
iNum : integer;
iAge : integer;
cName : array [0..6] of char;
end;
解决方案 »
- 拥有导航窗口的应用程序如何设计???
- 如何判断按钮被点击过?
- 我的浏览器经常提示要下载“flash.ocx”,可是我又不想下,怎么能让他不提示呢?
- 关于查询的问题(简单)
- 请问TJPEGImage对象LoadFromStream后,如何清空其内容,以便再此执行LoadFromStream操作
- 报表问题,急需您的指点,谢谢您了!!!!!!!!!!!!!
- FR3分组打印的问题
- 如何实现这样的点对点连接并传送文件??
- 急急急急,TreeView的问题
- 如何解决InstallShield不能支持中文
- TELL ME:我想偷用别人的DLL,但请问怎样查找函数原型,特别是函数参数???
- delphi 与mscomm32.ocx
例如,如果想为Integer创建一个新的名字
MyReallyNiftyInteger,用下列代码实现:
type
MyReallyNiftyInteger=integer;新定义的类型别名跟它的源类型在任何时候都兼容,这样在凡是出现Integer
的地方都能用MyReallyNiftyInteger来替换。
如果要创建一个被编译器认为是独特的、全新的类型别名,就要用到type关键字:
type
MyReallyNiftyInteger= type integer;
这样,当MyReallyNiftyInteger用于赋值目的时,它就转换为Integer,但在用作
var 和out参数时,它和Integer是不兼容的。因此下面的代码在语法上是正确的:
var
moni:MyReallyNiftyInteger;
I:integer;
begin
I := 1;
moni:=I;
相反,下面的代码就不能编译:
procedure goon(var value:integer);
begin
//
end;
var
m:MyReallyNiftyInteger;
begin
m:=29;
goon(m);// 错误:M跟Integer 不兼容。
TMyType = (No1, No2, No3);
TMyType = (No1, No2, No3);
Linux2001=array [0..100] of char;var
Test:Linux2001;