控件数组的问题!200‘(200分)

  • 主题发起人 主题发起人 weihg
  • 开始时间 开始时间
W

weihg

Unregistered / Unconfirmed
GUEST, unregistred user!
type
TlabelsIndex = (1..8); //*
Tlabels = array[TlabelsIndex] of TLabel;
Tview_curform = class(TForm)
……
private
Flabels: TLabels;
{ Private declarations }
public
{ Public declarations }
end;
……
procedure Tview_curform.FormCreate(Sender: TObject);
const
LeftMargin = 8;
topMargin = 8;
hGap = 40;
vGap = 20;
labelsPerRow = 5;
……
在窗口的create事件写
for i := Low(Flabels) to High(Flabels) do
begin
Flabels := Tlabel.Create(self);
Flabels.Parent := self;
Flabels.Left := LeftMargin + i mod labelsPerRow * hGap;
Flabels.Top := topMargin + i div labelsPerRow * vGap;

Flabels.OnClick := LabelsClick;
end;

但是说上面打//*的行[Error] :Identifier expected but number found
有什么错误么?
 
type
TlabelsIndex = 1..8;
 
谢谢!对了。
 
后退
顶部