type RefFrame=array[1..4] of TRefFrame; //坐标系对象数组//初始化坐标系对象数组
for i:=1 to high(RefFrame) do
begin
RefFrame[i]:=TRefFrame.create; //row 121
end错误提示: [Error] UMain.pas(121): '(' expected but '[' found
for i:=1 to high(RefFrame) do
begin
RefFrame[i]:=TRefFrame.create; //row 121
end错误提示: [Error] UMain.pas(121): '(' expected but '[' found
解决方案 »
- edit 组件找不到 Lines函数
- delphi内如何添加谷歌或者百度的广告
- 很怪很怪的很小很小的问题。
- 有谁知道既能使用多表头,又能合并单元格.并且支持数据库的控件?
- 困惑我两天了,高分请大家来帮忙
- 散了200.心情还是有点郁闷..再散200.老规矩..前10个每人20
- 问题还是没有解决!Delphi调用ActiveX DLL的问题,总报告找不到函数入口点!解决立即给分!!在线!
- WINODOWS中的topmose窗口跟top-level窗口有什么区别
- 怎么实现自己编写的IE中右键打开新窗口后用自己的窗口打开,而不要用 msie!
- 如何在自定义控件中增加数组类型的属性?
- 继续求图片写入数据库的例子!!!在线等待!!!
- 怎样用Delphi写的ActiveForm.OCX在web页面中向服务器提交数据?
begin
RefFrame:=TRefFrame.create; //row 121
end
begin
RefFrame[i]:=TRefFrame.create(self); //row 121
end
先要定义
var:
b:RefFrame
begin
for i:=1 to high(b) do
begin
b[i]:=TRefFrame.create(self); end
procedure TForm1.Button1Click(Sender: TObject);
type RefFrame=array[1..4] of TRefFrame; //坐标系对象数组
var
b: RefFrame ;
i:integer;
begin
//初始化坐标系对象数组
for i:=1 to high(b) do
begin
b[i]:=TRefFrame.create(self);
end
end;