5,392
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
shdshd 2001-07-21
- 打赏
- 举报
不是数组啊
westfly 2001-07-21
- 打赏
- 举报
晕，漏了个参数：
SetVarsValue([@a,@b,@c],0);//假设把所有参数值置0；
SetVarsValue([@a,@b,@c],0);//假设把所有参数值置0；
westfly 2001-07-21
- 打赏
- 举报
procedure SetVarsValue(Args:Array of Pointer;Value:Integer);
type pInt=^Integer
var I:Integer;
begin
for I:=0 to High(Args) do
pInt(Args[I])^:=Value;
end;
调用方法：
SetVarsValue([@a,@b,@c,@d]);
type pInt=^Integer
var I:Integer;
begin
for I:=0 to High(Args) do
pInt(Args[I])^:=Value;
end;
调用方法：
SetVarsValue([@a,@b,@c,@d]);
torble 2001-07-21
- 打赏
- 举报
呵～
格兰特杨 2001-07-21
- 打赏
- 举报
牛！
shawnguo 2001-07-21
- 打赏
- 举报
学习！
windindance 2001-07-21
- 打赏
- 举报
这不是数组。调用方法：
SetVarsValue([@a,@b,@c],0);
就可以了。
只是在函数中把参数当作数组看待而已。
SetVarsValue([@a,@b,@c],0);
就可以了。
只是在函数中把参数当作数组看待而已。
