怎样创建txt文件，并把一些字符串写到txt文件？

Question

谢谢

Answer 1

//创在当前文件夹下procedure Tfrmmain.btncreateClick(Sender: TObject);
var
  MyTextFile: TextFile;
  MyFile: string = 'test.txt';
begin
  if FileExists(MyFile) then
    MessageBox(handle, PChar('所要创建的文件' + MyFile + '已存在!'), '提示', mb_iconWarning + mb_Ok)
  else
  begin
    AssignFile(MyTextFile, MyFile);
    ReWrite(MyTextFile);
    write(MyTextFile, meotxt.text);  //meotxt为TMemo控件
    MessageBox(handle, PChar('文件' + MyFile + '创建成功!'), '提示', mb_iconWarning + mb_Ok);
    CloseFile(MyTextFile);
  end;
end;

Answer 2

楼上正确四步曲:
     1.声明:     f :TextFile;
     2.创建:     AssignFile(f,'文件名');
                 ReWrite(f);   //如有同名文件会覆盖
     3.写数据:   Writeln(f,'...写入的字符串...'); 
     4.关闭文件: CloseFile(f);

Answer 3

下面代码有什么问题啊，刚点击没问题，为何再点击出现异常啊？
procedure TForm1.Button1Click(Sender: TObject);
Var
   MyTextFile:TextFile;
   MyFile:string;
begin
   MyFile:='User.txt';
   if not FileExists(MyFile) then
     AssignFile(MyTextFile, MyFile);
   ReWrite(MyTextFile);
   try
      Writeln(MyTextFile);
      Writeln(MyTextFile);
      Writeln(MyTextFile);
      Writeln(MyTextFile);
      Writeln(MyTextFile,'你好');
   finally
      CloseFile(MyTextFile);
   end;
end;

Answer 4

if not FileExists(MyFile) then
  AssignFile(MyTextFile, MyFile);
第二遍点击自然就不会assignfile了，可是后面还ReWrite(MyTextFile);当然会出错。
可以改为if FileExists(MyFile) then exit;