在我的Delphi开发中,
我想将一个“const数组”(也可以包含类)传递给一个过程,并在过程循环中传递元素并检测元素的类型如下所示.
我想将一个“const数组”(也可以包含类)传递给一个过程,并在过程循环中传递元素并检测元素的类型如下所示.
Procedure Test(const Args : array of const); begin end; and in my code call it with some variables Procedure Test(); begin cls := TMyObject.create; i := 123; j := 'book'; l := False; Test([i,j,l,cls,37.8]) end;
如何循环发送的数组元素并检测它的类型？
解决方法
for I := Low(Args) to High(Args) do
case TVarRec(Args[I]).VType of
vtInteger:
...
end;