procedure TForm1.Button1Click(Sender: TObject);
var
ans:array of pdouble;
i,num:integer;
begin
num:=10;
setlength(ans,num);
for i:=0 to 10 go
ans[i]^:=i;
end;
程序运行时到ans[i]^:=i;这一步就会出错,求各位给解决一下.
var
ans:array of pdouble;
i,num:integer;
begin
num:=10;
setlength(ans,num);
for i:=0 to 10 go
ans[i]^:=i;
end;
程序运行时到ans[i]^:=i;这一步就会出错,求各位给解决一下.
解决方案 »
- 如何向SQL 中text字段保存数据
- 本人一直在使用delphi6,现想了解下delphi.net,请大家介绍一两本书来看看吧
- 我想学习用DELPHI进行EXCEL的开发,哪儿有最详细的资料,谢谢!!
- 太菜了,所以来送送分,最简单的问题。。。。。。?
- 用DELHIP开发过考勤系统的进来看看,如何使自已的程序与IC考勤机对接?
- 传奇3。0和盛大自己开发的新传奇快要出来了!赚钱的机会来了!
- 如何的数据表中某一列中最大的那个数?一经解决马上给分
- 关于clientdataset(在线等待)
- 请问关于SQL sever中的scroll CURSOR
- 哪里有好、的图标下载呀谢谢,我也程序要用!
- 我明明用了这个变量,为什么还出现 Value assigned to 'sssl' never used的提示?
- 问一小问题,关于字符串的
var
ans:array of pdouble;
i,num:integer;
begin
num:=10;
setlength(ans,num);
if i := 0 to num - 1 do begin
new(ans[i]);
end; for i:=0 to 10 go
ans[i]^:=i; for i := 0 to num - 1 do begin
Dispose(ans[i]);
end;
SetLength(Ans,0);
Ans := Nil;
end;
var
ans:array of pdouble;
i,num:integer;
begin
num:=10;
setlength(ans,num);
for i:=0 to 10 go //1,动态数组循环越界;2,错误关键词,不知道你怎么编译通过的。
ans[i]^:=i; //3,没有为指针数组内的元素分配空间
end;