RSS订阅 | 匿名投稿
标签

delphi Int64 与 Currency

Int64与CurrencyprocedureTForm1.Button1Click(Sender:TObject);varc:Currency;i:Int64absolutec;beginc:=1234.5678;ShowMessage(IntToStr(i));//12345678end;procedureTForm1.Button2Click(Sender:TObject);vari:In…
类别:函数 作者:admin 日期:2012-05-21 11.31.10 点击:1155 评论:0