delphi如何写文本文件

delphi如何写文本文件，比如按一个按钮，程序就把RichEdit1中的文字全部写入到a.txt并保存？？

答案：procedure TForm1.Button1Click(Sender: TObject);
begin
Try
  RichEdit1.Lines.SaveToFile('a.txt');
Finally
Showmessage("写入出错")
end
end;

其他：procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Lines.SaveToFile('a.txt');
end; RichEdit1.Lines.saveToFile 可以实现，放到按钮的事件中就可以了 //创建新的文本文件函数--------------------------------------------------------

Procedure NewTxt(FileName:String);
Var
　F : Textfile;
Begin
if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就删除}
　AssignFile(F, FileName); {将文件名与变量 F 关联}
　ReWrite(F); {创建一个新的文件并命名为 ek.txt}
　Writeln(F, '将您要写入的文本写入到一个 .txt 文件');
　Closefile(F); {关闭文件 F}
End;

//打开文本文件函数----------------------------------------------------------------

Procedure OpenTxt(FileName:String);
Var
　F : Textfile;
Begin
　AssignFile(F,FileName); {将文件名与变量 F 关联}
　Append(F); {以编辑方式打开文件 F }
　Writeln(F, '将您要写入的文本写入到一个 .txt 文件');
　Closefile(F); {关闭文件 F}
End;

//读文本文件函数--------------------------------------------------------------------

Procedure ReadTxt(FileName:String);
Var
　F : Textfile;
　str : String;
Begin
　AssignFile(F, FileName); {将文件名与变量 F 关联}
　Reset(F); {打开并读取文件 F }
　Readln(F, str);
　ShowMessage('文件有:' +str + '行。');
　Closefile(F); {关闭文件 F}
End;

//写文本文件函数--------------------------------------------------------------------

Procedure AppendTxt(Str:String;FileName:String);
Var
   F:Textfile;
Begin
AssignFile(F, FileName);
Append(F);
Writeln(F, Str);
Closefile(F);
End;

//函数调用方法——————————————————————

procedure TForm1.Button1Click(Sender: TObject);
begin
　NewTxt;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　OpenTxt;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
　ReadTxt;
end;

上一个：怎样快速的学习delphi？
下一个：delphi 如何让将选择题库数据生成一道选择题，ABCD选项是随机的？