自定义类型怎么用?(30分)

  • 主题发起人 主题发起人 yz_qing
  • 开始时间 开始时间
Y

yz_qing

Unregistered / Unconfirmed
GUEST, unregistred user!
我在UNIT1单元里定义了如下类型:
type
TLabelInfo = record
Label_text:string[255];{标签内容}
Label_X:Integer;{横坐标}
Label_Y:Integer;{纵坐标}
end;

{内层循环记录类型}
type
Tinboard = record
inboard_Row:integer;{内层循环的行}
inboard_Col:integer;{内层循环的列}
end;
{外层循环记录类型}
ToutTempInfo = packed record
ArrSize_Row:Integer;{外层循环的行}
ArrSize_Col:Integer;{外层循环的列}
ArrLabel_Count:Integer;{标签的个数}
LeabelInfo:array[0..199] of TLabelInfo;
inboard:array[0..199] of Tinboard;
end;
定义变量:
var
datafile:ToutTempInfo;
在BUTTON1中:
if opendialog1.Execute then
assignfile(datafile,opendialog1.Files.Strings[0]);
.........
.........
结果出错了:[Error] Unit1.pas(55): Missing operator or semicolon
请问是什么原因呢?
 
看不懂你的程序的意思,assignfile的参数需要File类型啊,难道楼主想把ToutTempInfo从File继承过来??
 
定义变量:
var
datafile:file of ToutTempInfo;
 
看来你想用结构体文件
试试shangshang的方法。。。。
 
搞定了,的确是用shangshang的方法,谢谢大家啦
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
664
import
I
后退
顶部