2010 年 5月 3 日随笔档案 - 万一

2010年5月3日

摘要： procedure TForm1.Button1Click(Sender: TObject);var c: Currency; i: Int64 absolute c;begin c := 1234.5678; ShowMessage(IntToStr(i)); //12345678end;procedure TForm1.Button2Click(Sender: TObject);var... 阅读全文

posted @ 2010-05-03 23:54 万一阅读(2991) 评论(0) 推荐(0) 编辑