LoadFromFile 和 SavetoFile

procedure TForm1.Button1Click(Sender: TObject);
begin
    {直接加载当前目录下的文件,文件必须得存在，否则出错}
    Memo1.Lines.LoadFromFile( 'Unit1.pas');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     {直接在当前程序目录下保存文件，如果文件不存在程序会自动创建一个文件}
    Memo1.Lines.SaveToFile( 'a.txt');
end;
//不用写路径，直接加载当前目录下的文件

通过 Wiz 发布