LoadFromFile SaveToFile

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String AppPath;
    AppPath=GetCurrentDir();
    Memo1->Lines->LoadFromFile(AppPath+"\\"+"a.rtf");
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String AppPath;
    AppPath=GetCurrentDir();
    Memo1->Lines->SaveToFile(AppPath+"\\"+"a.rtf");
}
 
 




posted @ 2012-06-03 17:52  XE2011  阅读(137)  评论(0编辑  收藏  举报