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 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/06/02/2531650.html