怎么样可以获取二位数据的上下界？？？(0分)

Z

zengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #1

怎么样可以获取二维数据的上下界？？？？？
比如a(12,4),我想的到１２或者４

 

B

bjdribllec

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #2

var si1,si2,si3:integre;

si1:=sizeof(a[0,0]);
si2:=sizeof(a[0]);
si3:=sizeof(a);

si3:=si3 div si2; // 你的12
si2:=si2 div si1; // 你的4

 

Z

zengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #3

如果当前是动态的二维数据组呢

 

W

wuyugen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-10

• #4

var
A : array of array of string;
I, J : Integer;
begin
SetLength(A, 10);
for I := Low(A) to High(A) do
begin
SetLength(A, I);
for J := Low(A) to High(A) do
A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
end;
end;