D7 tmemo 读入指定文档内容跟修改后保存内容

Question

D7 tmemo 读入指定文档内容跟修改后保存内容 求大神指教

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    TextName:string;     // 全局变量 保存文件
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.FileName:='';
  opendialog1.InitialDir:=sPath;
  opendialog1.filter:='文本文件|*.txt';
  if OpenDialog1.Execute then
  begin
    TextName:=OpenDialog1.FileName;
    Memo1.Lines.LoadFromFile(TexxtName);    //打开文件
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile(TexxtName);       // 保存文件
end;end.
Button1打开文本文件。
Button2，通过Memo修改文本文件后，原名保存文件。