怎样定义一个大小不定的数组？(50分)

C

Cando

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #1

[?]

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #2

利用动态数组！

i : array of integer;

声明了i为一个动态整型数组。

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #3

var
A1 : array of integer;
A2 : array of array of integer;
begin
SetLength(A1, 10); //设置数组长度
SetLength(A2, 10, 10);
//以下可以引用数组了

end.

 

一

一剑封喉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #4

array of integer;

 

C

ChinaBean

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #5

var
A: array of integer
begin
SetLength(A, nLength);
.......
A := nil;
end;

 

C

Cando

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #6

那么怎样定义一个函数的返回参数为一个不定大小的数组呢？如下定义出错：
Function GetCmdPara(CmdLine:String):Array of String;

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #7

不能直接返回动态数组，必须事先将其声明为一个普通类型：

type
SA=array of String; //Here！
function ReturnIA:SA;
begin
SetLength(Result,2); //Here
Result[0]:='1';
Result[1]:='Hello!';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a:SA;
begin
a:=ReturnIA;
Caption:=a[0]+' '+a[1]; //OK!
end;

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #8

为什么不用TStrings呢

先定义一个类型
type
TA = array of string;

function x : TA;

 

C

Cando

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #9

多人接受答案了。