本文整理自网络,侵删。
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;
相关阅读 >>
Delphi 判断时间是否是下午 dateutils.ispm
Delphi 关于datetimepicker的一点问题(同时修改日期和时间的实现)
Delphi lastdelimiter:在字符串中查找选定的字符最后出现的位置
更多相关阅读请进入《Delphi》频道 >>