Array of const 形式的参数可以传递不同类型的参数

    正如你所能想到的，由于Array of const 形式的参数可以传递不同类型的参数，使得接收这些参数的函数和过程工作起来比较困难。作为一个例子，下面的代码是WhatHaveIGot()过程的实现，在这个例子中依次判断每一个数据的类型，并在屏幕上显示数据的序号和类型：

 



procedure WhatHaveIGot(A : Array of Const);
var
  i : integer;
  TypeStr : string;
begin
  for i := Low(A) to High(A)do
  begin
    Case A[i].VType of
      VtInteger    : TypeStr := 'Integer';
      VtBoolean    : TypeStr := 'Boolean';
      VtChar       : TypeStr := 'Char';
      VtExtended   : Typestr := 'Extended';
      VtString     : TypeStr := 'String';
      Vtpointer    : TypeStr := 'Pointer';
      VtPChar      : TypeStr := 'PChar';
      Vtobject     : TypeStr := 'Object';
      Vtclass      : TypeStr := 'Class';
      VtwideChar   : TypeStr := 'WideChar';
      VtPWideChar  : TypeStr := 'PWideChar';
      VtAnsiString  : TypeStr := 'AnsiString';
      VtCurrency   : TypeStr := 'Currency';
      VtVariant    : TypeStr := 'Variant';
      VtInterface  : TypeStr := 'Interface';
      VtwideString : TypeStr := 'WideString';
      VtInt64      : TypeStr := 'Int64';
    end;
    ShowMessage(ForMat('Array item %d is a a %s',[i, TypeStr]));
  end;
end;