Delphi 文件操作 AssignFile()

procedure TForm_Tips.Button_AssignFileClick(Sender: TObject);

var

  FileName: string;

  i: Integer;

  Str: string;

begin

  FileName := ExtractFileDir(ParamStr(0)) + '\Test.csv';

  // 注意 DataFile 不能再方法中进行声明

  // 将 FileName 文件与变量 DataFile 建立连接，后面可以使用 DataFile 变量对文件进行操作

  AssignFile(DataFile, FileName);

  // Rewrite 过程能创建一个新文件并打开它，如果文件已经存在会对之前的文件进行覆盖

  // 使用 Rewrite 和 Append 打开的文本文件只能写入

  Rewrite(DataFile);

  WriteLn(DataFile, 'idx,Name,Sex');

  for i := 0 to 5 do

  begin

    WriteLn(DataFile, IntToStr(i) + ',' + 'xiaoyin0' + IntToStr(i)+ ',' + '男');

  end;

  Memo_Log.Lines.Add('文件写完成，下面开始读！');

  // 使用 Reset 打开的文本文件是只读的

  Reset(DataFile);

  Readln(DataFile, Str);

  Memo_Log.Lines.Add(Str);

  CloseFile(DataFile);

end;