多维数组做函数参数的问题?(200分)

E

exceed

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #1

funtion(多维数组):integer;

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #2

怎么了？好像描述不很清楚。
其实也可以考虑把多维数组定成全局的，那就没有这么多事情了。

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #3

function MyFunction(MyVariant= array[0..10, 0..20] of string): string;

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #4

type
TMulArray = array[0..10, 0..20] of string;
function MyFunction(MyVariant: TMulArray): string;

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #5

type
AA = array of array of real;

function jisuan(A: AA;m: integer):integer;
var
...
begin
...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
b: AA;
m,i,j: byte;
begin
m := SpinEdit1.Value;
setlength(b, m, m);
with stringgrid1 do
for i:=1 to m do
for j:=1 to m do begin
b[i-1,j-1]:=StrToFloat(cells[j,i]);
end;
showmessage(IntToStr(jisuan(b,m)));
end;

 

S

st_cumt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #6

同上

 

E

exceed

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #7

多人接受答案了。