Question

How to declare a function argument that can accept any type in Pascal

Answer 1

program AcceptAnyTypeProgram;

uses
  Variants; // VarType

procedure AcceptAnyType(x: Variant);
begin
  case VarType(x) of
    varSmallInt, varInteger: WriteLn('Integer type');
    varDouble: WriteLn('Floating-point type');
    varString: WriteLn('String type');
    varBoolean: WriteLn('Boolean type');
    else WriteLn('Unknown or unsupported type');
  end;
end;

begin
  AcceptAnyType(457);
  AcceptAnyType(3.14);
  AcceptAnyType('ABCD');
  AcceptAnyType(True);
end.




(*
run:
  
Integer type
Floating-point type
String type
Boolean type

*)

 

70+ SQL courses for beginners and professionals