分析下代码（菜鸟级）

s912360101 发布于 2009-08-17 18:06， 722 次点击

r := DiskSize(3);  //获取C:总空间, 单位是字节
  r := r/1024/1024/1024;
  Str(r:0:2,s);  //格式为保留两位小数的字符串
  s := 'C盘总空间是: ' + s + ' GB';
  ShowMessage(s);  //xx.xx GB

  r := DiskFree(3);  //获取C:可用空间
  r := r/1024/1024/1024;
  Str(r:0:2,s);
  s := 'C盘可用空间是: ' + s + ' GB';
  ShowMessage(s);  //xx.xx GB
end;
这段代码不是很懂，望高手给小弟解释解释啊

2 回复

jack_lvzheng2009-08-24 12:37

r:=disksize(3);
//获取第3个（C：）驱动器的总空间
r:=r/1073741824;
//把r的值换成gb
str(r:0:2,s);
//把r四舍五入到2位然后把它作为字符串放到s里面，如3.1415926变成'3.14'
s:='C盘总空间是'+S+'GB';
//这个我不用说你也知道。。。
showmessage(s);
//弹出窗口
//以下代码同上，不过diskfree是获取可用空间的函数，而disksize是获取disk的size的函数。-_-#"

s9123601012009-08-25 18:10

既然是函数。为什么不用去声明。是Delphi默认的吗。。。