Advanced Search

Return to Snippet

Revision: 30241
at August 10, 2010 16:22 by zooms
Initial Code 
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;
Initial URL 









Initial Description














Initial Title





在delphi中显示变量类型









Initial Tags














Initial Language





Delphi