checking if input is integer, string, etc. [solved]

[y0uRd34th]

I'm not sure if i remember it right, but i thinked i've seen that somewhere, so..
Is there a way to check if the input in a func./proc. is integer, string, etc.? (input is variant)

[DorkeyDear]

The VarType function will return a numeric value for each different type the variant can be. Refer to http://devs.soldat.pl/wiki/index.php/Data_Types.

[y0uRd34th]

thanks, ill put it into search and found it

Code: [Select]

function GetTypeOF(Value: variant): string;
begin
  case VarType(Value) of
    3  : Result:= IntToStr(Value);
    5  : Result:= FloatToStr(Value);
    11 : Result:= iif(Value, 'true', 'false');
    256: Result:= Value;
  end;
end;
it was from curry wurst d:

[CurryWurst]

thanks, ill put it into search and found it

Code: [Select]

function GetTypeOF(Value: variant): string;
begin
  case VarType(Value) of
    3  : Result:= IntToStr(Value);
    5  : Result:= FloatToStr(Value);
    11 : Result:= iif(Value, 'true', 'false');
    256: Result:= Value;
  end;
end;
it was from curry wurst d:

Oh well, the function isn't complete. It lacks several variable types I only added the most common types.
Refer to the link DorkeyDear posted above to complement it.

[y0uRd34th]

I just needed this for the VarType() function so far D:

btw. what i wnated to made shorter inttostr, [...] with it (too lazy to write , just better overview for the scirpt):

Code: [Select]

function int(value: variant): integer;
begin
  case VarType(value) of
    3:     Result := value;
    5, 17: Result := Round(value);
    256:   Result := StrToInt(Value);
  end;
end;

function str(value: variant): string;
begin
  case VarType(value) of
    3:     Result := IntToStr(value);
    5, 17: Result := FloatToStr(value);
    256:   Result := value;
  end;
end;

function float(value: variant): single;
begin
  case VarType(value) of
    3:     Result := value;
    5, 17: Result := value;
    256:   Result := StrToFloat(value);
  end;
end;