请大虾给我一个存取文件的小例子！

Question

给我一个小程序，能够将某个字符串，比如a:='fdsfsdfsdfsdsd'存储到我D盘的一个文件中，文件名是D：\T21.DMG，DMG文件是可以用TXT工具打开的。既能够存到该文件中，用能够将该文件中的字符串读取到我界面上的TEXT文本栏中。谢谢大虾！

Answer 1

stringlist := TStringlist.create;
stringlist.loadfromfile(filename);
memo1.text := stringlist.text;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var d:TStringList;
begin
    d:=TStringList.Create;
    d.loadfromfile(D：\T21.DMG');
    d.add('fdsfsdfsdfsdsd');
    d.SaveToFile(D：\T21.DMG');
    d.free;
    ShowMessage('ok');
end;