Int64与Currency

文章作者 100test 发表时间 2011:03:22 18:44:27
来源 100Test.Com百考试题网

计算机二级delphi辅导:Int64 与 Currency。 　　procedure　TForm1.Button1Click(Sender:　TObject).
　　var
　　c:　Currency.
　　i:　Int64　absolute　c.
　　begin
　　c　:=　1234.5678　.
　　ShowMessage(IntToStr(i)).　//12345678
　　end.
　　procedure　TForm1.Button2Click(Sender:　TObject).
　　var
　　i:　Int64.
　　c:　Currency　absolute　i.
　　begin
　　i　:=　12345678.
　　ShowMessage(CurrToStr(c)).　//1234.5678
　　end.
　　procedure　TForm1.Button3Click(Sender:　TObject).
　　var
　　i:　Int64.
　　c:　Currency.
　　begin
　　i　:=　12345.
　　ShowMessage(CurrToStr(PCurrency(@i)^)).　//1.2345
　　c　:=　3.14.
　　ShowMessage(IntToStr(PInt64(@c)^)).　　　//31400
　　end.

　　推荐:

　　#0000ff>获取斐波那契数列的函数

　　更多相关资料:

　　#0000ff>百考试题教育全国计算机等级考试在线测试平台

　　#0000ff>2010年9月全国计算机等级考试各科模拟试题冲刺

　　#0000ff>全国计算机等级考试论坛