UC知道初学delphi数组问题
来源：百度知道 编辑：UC知道 时间：2024/05/26 14:30:51
{var
s1:integer;
s2:integer;
i:integer;
abc:array[1..10,1..10] of integer; //定二维数组 }
begin
s1:=1;//编译这一行就过不去
s2:=1;
for i=10
s1:=s1+1;
s2:=s2+1;
s1:=strtoint(Edit1.text);
s2:=strtoint(Edit2.text);
edit3.Text :=char(abc[s1,s2]); //存取
next i;
s1:integer;
s2:integer;
i:integer;
abc:array[1..10,1..10] of integer; //定二维数组 }
begin
s1:=1;//编译这一行就过不去
s2:=1;
for i=10
s1:=s1+1;
s2:=s2+1;
s1:=strtoint(Edit1.text);
s2:=strtoint(Edit2.text);
edit3.Text :=char(abc[s1,s2]); //存取
next i;
第一，在delphi中{}中是注释语句，编译时不起作用。你在var前加上了{，在//定二维数组 后加上了}代表声明变量的语句无效
第二，delphi中的变量需要先声明后使用，上面变量的声明被注释了，下面的赋值语句就不能使用
第三，for语句的使用是for i:=1 to 10 do begin ...... end;
程序修改如下：
var
s1:integer;
s2:integer;
i:integer;
abc:array[1..10,1..10] of integer; //定二维数组
begin
s1:=1;//编译这一行就过不去
s2:=1;
for i:=1 to 10 do
begin
s1:=s1+1;
s2:=s2+1;
s1:=strtoint(Edit1.text);
s2:=strtoint(Edit2.text);
edit3.Text :=char(abc[s1,s2]); //存取
end;
编译通过
s1=1