程序为何不能正常运行？见笑了。

[mx1029]

各位大虾，小弟是初学者，我前一段照书上想编一个文本编辑工具，用到ActionManager,但写的那段保存的句子，却怎么也不能保存，也不报错，如同虚设。是什么原因啊，是D版的原因吗？具体如下：
procedure TForm1.FileSaveExecute(Sender: TObject);
begin
if(FileName='未命名文件.txt')then
FileSaveAs1.Execute
else
RichEdit1.Lines.SaveToFile(FileName);
end;

[johnsonrao]

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

[johnsonrao]

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

[cnnjvirus]

up

[mx1029]

继续UP UP

[mx1029]

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

[mx1029]

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