text文件操作

unit Unit1;

interface

uses
  FMX.Forms, FMX.Dialogs, FMX.Memo;

type
  TCustomForm = class(TForm)
    Memo: TMemo;
    SaveDialog: TSaveDialog;
    OpenDialog: TOpenDialog;
    procedure ASaveExecute(Sender: TObject);
    procedure AOpenExecute(Sender: TObject);
  end;

implementation

// 打开文件
procedure TCustomForm.AOpenExecute(Sender: TObject);
begin
  // 选择打开文件
  OpenDialog.Execute;
  // 用TStrings的LoadFromFile方法读取文件
  Memo.Lines.LoadFromFile(OpenDialog.FileName);
end;

// 保存文件
procedure TCustomForm.ASaveExecute(Sender: TObject);
begin
  // 弹出保存框获取文件名
  SaveDialog.Execute;
  // 用TStrings的SaveToFile方法保存文件
  Memo.Lines.SaveToFile(SaveDialog.FileName);
end;

end.