Typ einzelner Array of const-Elemente

[sirius]

Delphi-Quellcode:

function fstr(z:variant):string;
begin
   if (TVarData(z).VType = varinteger)
    or(TVarData(z).VType = varbyte)
    or(TVarData(z).VType = varword)
    or(TVarData(z).VType = varint64)
      then str(z:0:0,result)
      else str(z,result);
end;

(Ausschnitt aus einer Funktion (die wahrscheinlich in diesem Ausscheitt recht sinnlos geworden ist))

Mit nem array of const dürfte es genauso funktionieren.