/ Published in: Delphi
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
procedure TForm1.Button4Click(Sender: TObject); var I: Integer; S: String; W: Word; B: Boolean; D: Double; begin ShowMessage(VarTypeAsText(VarType(I))); ShowMessage(VarTypeAsText(VarType(S))); ShowMessage(VarTypeAsText(VarType(W))); ShowMessage(VarTypeAsText(VarType(B))); ShowMessage(VarTypeAsText(VarType(D))); end;