如何有delphi自动创建一个空白的文本文件在指定的路径下

Question

同上

Answer 1

var filename:string;
    myinifile:TINIFile;
filename:=yourfilepath+'system.ini';//如：yourfilepath;='c\winni\';
myinifile:=TINIFile.Create(filename);

Answer 2

以上是ini文件
文本文件 
只需把 
   system.ini 
改为：
   yourFileName.txt

Answer 3

var  F1: TextFile;
begin
    AssignFile(F1,'XXX.txt');
    Reset(F1);
    CloseFile(F1);
end;

Answer 4

var
  SnFile: TextFile;
begin
  AssignFile(SnFile, 'd:\sn.txt');
  Rewrite(SnFile);
  CloseFile(SnFile);
end;

Answer 5

指定路径：
'd:\sn.txt' 改为 ExtractFilePath(Application.ExeName) + 'sn.txt'