11.FileExists 功能说明:检测指定的文件否存在。如果存在则返回True,反之则为False。
参考实例:
var
IsExists: Boolean;
begin
IsExists := FileExists(''C:\Test.txt'');
if IsExists then ShowMessage(''该文件存在!'')
else ShowMessage(''该文件不存在!'');
end;
12.FileSize 功能说明:获取文件大小。返回的结果是字节为单位。
参考实例:
var
F: file of Byte;
nSize: Longint;
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
Reset(F); // 打开文件
nSize := FileSize(F); // 获取文件大小。
CloseFile(F); // 关闭文件
end;
13.ForceDirectories 功能说明:创建新的子目录。路径中不存在的目录将一同创建。
参考实例:
ForceDirectories(''C:\Flash\MyFolder''); // 如果Flash文件夹本身不存的话,那么将会先创建Flash文件夹,然后再创建MyFolder文件夹。
14.MkDir 功能说明:创建一个新的子目录(文件夹)。
参考实例:
MkDir(''C:\MyFolder''); // 在C盘根目录中创建了一个名叫MyFolder的文件夹。
需要注意的是,如果在本身不存在的目录中创建子目录将会失败。比如C盘根本不存在Flash文件夹,写成MkDir(''C:\Flash\MyFolder'');这样将不能成功创建MyFolder文件夹。
15.Reset 功能说明:以只读方式打开文件。
参考实例:
var
F: TextFile; // 声明文本文件类型变量
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
Reset(F); // 打开文件
end;
16.Rewrite
功能说明:以可写方式打开文件。如果文件不存在,将会自动创建。使用该函数,将会覆盖文件中的所有内容。
参考实例:
var
F: TextFile; // 声明文本文件类型变量
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
Rewrite(F); // 打开文件。如果文件不存在,将会在C盘中创建MyFile.txt文件。如果文件存在,将会覆盖MyFile.txt中的所有内容。
end;
17.Readln 功能说明:读取一行文本。
参考实例:
var
S: String;
F: TextFile;
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
Reset(F); // 打开文件
Readln(F, S); // 读取一行文本到S变量中
end;
18.Rename 功能说明:更改文件名。
参考实例:
var
F: File;
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
ReName(F, ''C:\NewFile.txt''); // 更名为NewFile.txt
end;
19.Writeln 功能说明:写入一行文本。
参考实例:
var
S: String;
F: TextFile;
begin
S := ''This is a book.'';
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。
Rewrite(F); // 创建新文件
Writeln(F, S); // 将S变量中的内容写入文本中。
end;
上一页 [1] [2]
责任编辑:小草