判断文件是否存在 FileExistsf :=
'c:\temp\test.txt';
if FileExists(f)
then begin //如果文件存在
end;
end;
判断文件夹是否存在 DirectoryExistsdir :=
'c:\windows';
if DirectoryExists(dir)
then begin //如果文件夹存在
end;
end;
删除文件 f :=
'c:\temp\test.txt';
Windows
.DeleteFile(PChar(f));
deletefile(f);
删除文件夹
dir := 'c:\temp';
RemoveDirectory(PChar(dir));
RemoveDir(dir);
获取当前文件夹 GetCurrentDir
dir := GetCurrentDir;
ShowMessage(dir);
获取指定驱动器的当前路径名 GetDir
var
dir: string;
b: Byte;
begin
b := 0;
GetDir(b,dir);
ShowMessage(dir);
获取磁盘空间 DiskSize; DiskFree
var
r: Real;
s: string;
begin
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;
str()函数:
f:= 01.1446;
str(f:0:2,s) ;//f:=0.14
f:= 01.1445;
str(f:0:3,s) ;//f:=0.145
这里是用的四舍5入
posted on 2008-11-29 16:30
小叶子 阅读(372)
评论(0) 编辑 收藏 引用 所属分类:
笔记