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
请问是什么原因呢?
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
请问是什么原因呢?