procedure TForm1.FileSaveExecute(Sender: TObject);
var FileName: String;
begin
     if SaveDialog1.Execute 
     then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;

解决方案 »

  1.   

    procedure TForm1.FileSaveExecute(Sender: TObject);
    begin
         if SaveDialog1.Execute 
         then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
    end;
      

  2.   

    谢谢了,可以保存了,但是又有问题出来了,TRichEdit 保存默认的文本类型是RTF,我用了过滤器,让其保存为TXT文件。可是没用:(
    能帮帮小弟吗?
      

  3.   

    谢谢了,可以保存了,但是又有问题出来了,TRichEdit 保存默认的文本类型是RTF,我用了过滤器,让其保存为TXT文件。可是没用:(
    能帮帮小弟吗?