数组问题!赋值以后,每个元素的值都相同,请大佬们帮我看看哪里错了?(50分)

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-30

• #1

var
i,j,k,l: integer;
z: integer;
aArr: Array of string;
begin
L:=10;
SetLength(aArr,74*L);
for i := low(aArr) to High(aArr)do
for k := 1 to Ldo
for j := 0 to 74do
begin
z:=0;
z:=j+74*(k-1);
aArr:=inttostr(z);
end;
end;
我的本意是aArr[0..739] of string=('0'..'739'),结果每个都是740

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-30

• #2

把断点设在赋值语句上,自己跟踪数值变化吧

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-30

• #3

看不出有什么变化!

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-30

• #4

呵呵~~~我帮你调试了一下:
procedure TForm1.Button8Click(Sender: TObject);
var
i,j,k,l: integer;
z: LongInt;
aArr: Array of string;
begin
L:=10;
SetLength(aArr,74*L);
i := 0;
for k := 1 to Ldo
for j := 0 to 73do
begin
z:=0;
z:=j+74*(k-1);
aArr:=inttostr(z);
Inc(i);
end;
Memo1.Lines.Clear;
for i := low(aArr) to High(aArr)do
Memo1.Lines.Add(aarr);
end;
现在通了,为什么错,你自己思考吧!

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-30

• #5

to bjaman
多谢你了,给你加分!