RichEdit保存为(*.txt)(*.doc)

 RichEdit保存为(*.txt)(*.doc)

 

AnsiString FileName;

SaveDialog1->Filter = "文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|RTF(*.rtf)|*.rtf|";
SaveDialog1->InitialDir = "C://";
if(SaveDialog1->Execute())
{
                FileName = SaveDialog1->FileName;
                RichEdit1->Lines->SaveToFile(FileName);
                RichEdit1->PlainText = true;
                RichEdit1->Modified = false;
}