D
dey-999
Unregistered / Unconfirmed
GUEST, unregistred user!
我想将字符串参数赋予函数，但是需要不限制参数数量，有多少算多少，不知可否办到，谢谢大家！
Z
zhengrong117
Unregistered / Unconfirmed
GUEST, unregistred user!
function atext( TableName: array of string): string;var i:Integer
Temps
char;begin Result:=''
for i := low(TableName) to high(TableName) do begin Result :=Result +TableName
end;end;procedure TForm1.btn2Click(Sender: TObject);begin form1.Caption:=atext(['ces0','ces1','ces2','ces3','ces4']);end;
Temps
char;begin Result:=''for i := low(TableName) to high(TableName) do begin Result :=Result +TableName
end;end;procedure TForm1.btn2Click(Sender: TObject);begin form1.Caption:=atext(['ces0','ces1','ces2','ces3','ces4']);end;
X
xianjun
Unregistered / Unconfirmed
GUEST, unregistred user!
还可以用 array of const
array of variant不限制参数类型。 [8D]
array of variant不限制参数类型。 [8D]
D
dey-999
Unregistered / Unconfirmed
GUEST, unregistred user!
基本满意，不过中括号有没有办法去掉呢
D
dey-999
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢，这样也是非常好的结果！