formatfloat('0', Free / (1024 * 1024));
//要把上面这个转换到一个integer型全局变量dx中怎么写?
dx:=?;
解决方案 »
- 仿QQ2013登陆界面
- 谁有用aduquery访问过sql的image字段的代码吗?
- 高分~~如何识别图像格式,并转压缩换成bmp格式~
- 调用窗体的Refresh方法时怎么会不停地闪?
- 一个简单的Access问题,在线等待,解决马上给分
- 请问如何用delphi实现“从c盘备份到d盘的功能,并且是定时的,或者网络备份”谢谢
- 问:用WISE installation如何打包DELPHI写的MIS软件
- 急急!ADO多表连接查询,直接在DBGRID上插入数据???
- 各位各位,帮忙进来看看这个线程的问题!!!!!!!!!!!!!!!!!!!!!
- Delphi6又多了那么多的控件。每个都要去研究么???
- delphi 简单插入语句
- 关于在DLL中传递SocketConnection的问题
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
dx: Integer;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
Free: Double;
begin
Free := 1024 * 1024 * 2.3;
dx:=StrToInt(formatfloat('0', Free / (1024 * 1024)));
Edit1.Text := IntToStr(dx);
end;end.