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;

　　推荐:

　　获取斐波那契数列的函数

　　更多相关资料:

　　考试大教育全国计算机等级考试在线测试平台

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

　　全国计算机等级考试论坛