关于获取edit控件 - delphi吧

level 4

847427402 楼主

我定义a为整型，假如edit1中我填写的是20，我如何得到a=20；

2014年04月19日 12点04分 1

level 13

顶之座__赫卡特

a := StrToInt(Edit1.Text);

2014年04月19日 12点04分 2

847427402

b:=a-1 这是b在程序中是数值19吗，由于我需要用for语句所以想问清楚

2014年04月19日 13点04分

顶之座__赫卡特

回复 847427402 :自己看书学好基础语法，上机验证。

2014年04月19日 13点04分

847427402

回复顶之座__赫卡特 :帮我看看下面的问题

2014年04月19日 13点04分

level 4

847427402 楼主

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,i,j:integer;
Arr : array of array of integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
setlength(Arr,a-1,b-1) ;
for i:=0 to a-1 do
randomize;
begin
for j:=0 to b-1 do
begin
Arr[i,j]:=random(100) ;
showmessage(inttostr(Arr[0,2])) ;
end;
end;
end;
求指导可以运行但输入数据后不出结果

2014年04月19日 13点04分 3

顶之座__赫卡特

留意randomize;的位置，而且你的数组访问越界了，搞清楚动态数组的下标范围和长度两个概念。

2014年04月19日 13点04分