请教：array of const 怎么用？ (50分)

H

hycstudio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #1

请教：
在函数的参数中，array of const 怎么用？比如Format函数的参数！

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #2

例子：
const
aInteger : array[1..4] of integer = (12,36,48,72);

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #3

procedure TForm1.Button1Click(Sender: TObject);
const
c_MyConst: array[0..2] of string = ('姓名：%s', '性别：%s', '年龄：%d');
begin
ShowMessage(Format(c_myconst[0], ['牛群']));
ShowMessage(Format(c_myconst[1], ['男']));
ShowMessage(Format(c_myconst[2], [12]));
end;

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #4

function addsum(arr:array of integer):integer;
var i:integer;
begin
result:=0;
for i:=0 to high(arr) do
result:=result+arr;
end;
调用：
var xx:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
xx:=i*10;
end;
showmessage(inttostr(addsum(xx)));
end;

己通过测式！

 

H

hycstudio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #5

谢谢