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;
//不用写路径，直接加载当前目录下的文件