文章目录
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;
Memo.Lines.LoadFromFile(OpenDialog.FileName);
end;
procedure TCustomForm.ASaveExecute(Sender: TObject);
begin
SaveDialog.Execute;
Memo.Lines.SaveToFile(SaveDialog.FileName);
end;
end.