Typ einzelner Array of const-Elemente

[inherited]

Leider nicht

So versuche ich es:

Delphi-Quellcode:

procedure Test(a: Array of Const);
var i: Integer;
begin
  for i := 0 to high(a) do
  begin
    if (TVarData(a[i]).VType=varinteger)
     or(TVarData(a[i]).VType = varbyte)
     or(TVarData(a[i]).VType = varword)
     or(TVarData(a[i]).VType = varint64) then
      ShowMessage(IntToStr(a[i]);
  end;
end;