根据文件路径生成相应文件

DatFile: TextFile;

AssignFile(DatFile, edtDataFile.Text);   //生成路径为edtDataFile.Text的文件

ReWrite(DatFile);

Writeln();

CloseFile(DatFile);

内容导读： AssignFile 过程将一个外部文件的文件名与一个File 类型的变量关联，对File 类型的变量进行初始化。过程原型如下： procedure AssignFile(var F; FileName: string);

AssignFile 过程
AssignFile 过程将一个外部文件的文件名与一个File 类型的变量关联，对File 类型的变量进行初始化。过程原型如下：
procedure AssignFile(var F; FileName: string);
其中参数F 为一个File 类型的变量，可以是任何数据类型。参数FileName 为一个包含文件名信息的字符串，如果参数FileName 指向的字符串为空，则将参数F 与标准输入文件或标准输出文件关联。
如果AssignFile 过程将参数F 与一个空文件名关联后，调用Reset(F)，则F 与标准输入文件关联；如
果调用的是Rewrite(F)，则F 与标准输出文件关联。
以下示例代码实现了一个外部文件和File 类型的变量关联的过程：
var
F:TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(F,OpenDialog1.FileName);
//对文件进行操作
//操作完成后关闭文件
end;
end;

转载于:https://www.cnblogs.com/steveyjj/archive/2012/08/15/2640497.html