文本编辑器-可改文件名.txt

来自「学习Delphi最好的教材。通过一个个简单而实用的实例」· 文本 代码 · 共 19 行

1.新建一个文件夹
2.新建一个程序(File-->New-->Application)，并保存(Save All)到该文件夹
3.添加一个Memo控件(先在控件栏找到Memo，并点击，然后在窗体(Form1)上点一下),
添加一个“保存”对话框(在控件工具栏翻到对话框(Dialogs)找到Save Dailog)
添加一个按钮(Button),把它的标题(Caption属性)改为“保存”，添加事件(双击按钮)，
并添加代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog1.Execute;
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
添加一个“打开”对话框(在控件工具栏翻到对话框(Dialogs)找到Open Dailog)
再添加一个按钮(Button),把它的标题(Caption属性)改为“打开”，添加事件(双击按钮)，
procedure TForm1.Button2Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;