怎么样在过程中传递数组(10分)

Z

zengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-13

• #1

var
a of array :string
begin
aaa(a);
end;
procedure aaa(ff array :string);
begin
end;
这样好向不行啊，那位帮帮忙

 

L

lichengbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-13

• #2

基本语法就不通！
var
a: array of string;
begin
aaa(a);
end;
procedure aaa(f: array of string);
begin
end;

 

B

Beast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-13

• #3

第一种方案：把你的数组定义成一个类型，传递该类型
第二种方案：传递一个数组指针

 

Z

zengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-13

• #4

但是为什么我传一维就可以，传二维就不行呢
var
a : array of array of string;
begin
setlength(a,4,4);
a[1,1]:='abc';
aa(a);
end;
procedure tform1.aa( f :array of array of string);
begin
showmessage(f[1,1]);
end;