Procedure {TForm1.}DoIt(X: Array Of Const);
Var
i: Integer;
J: TVarRec;
Begin
for I := Low(X) to High(X) do begin
J := X;
case j.VType of
vtInteger: ShowMessage(IntToStr(j.VInteger)) ;
vtBoolean: ;
vtChar : ;
vtExtended: ;
vtString : ;
vtPointer : ;
vtPChar : ;
vtObject : ;
vtClass : ;
vtWideChar: ;
vtPWideChar: ;
vtAnsiString: ShowMessage(String(j.VAnsiString));
vtCurrency: ;
vtVariant: ;
vtInterface: ;
vtWideString : ;
vtInt64: ;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DoIt([1,'This Is A String',3,4,5]);
end;
