用delphi写一段可以在本地生成一个文本文档并保存数据的代码.txt

用DELPHI写一段可以在本地生成一个文本文档并保存数据的代码

新建一个工程,放一个Edit和一个按钮,Edit的名称为Edit1,然后双击按钮写入如下代码 

procedure TForm1.Button1Click(Sender: TObject); 
var 
saveedit:TStringList; 
begin 
saveedit := Tstringlist.Create; 
saveedit.Text := edit1.Text; 
saveedit.SaveToFile(ExtractFilePath(Application.ExeName)+'自己想要的文件名.txt'); 
saveedit.Free; 
end;