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;
}