请问各位原因出在哪？？？

[winnindai]

这是save菜单的响应涵数
void __fastcall TForm1::SaveClick(TObject *Sender)
{
SaveDialog1->Execute();
cFileName=SaveDialog1->FileName;
RichEdit->Lines->SaveToFile(cFileName);

}
这是save按钮的响应涵数
void __fastcall TForm1::SaveButtonClick(TObject *Sender)
{
SaveDialog1->Execute();
cFileName=SaveDialog1->FileName;
RichEdit1->Lines->SaveToFile(cFileName);

}
当我测试保存时
save按钮是可以保存的
但菜单保存时就出现错误
请问各位原因出在哪？？？

[hongwuzhao]

1、两个事件可以用一函数来响应

2、
AnsiString olddir = SaveDialog1->InitalDir;
if(SaveDialog1->Execute())
RichEdit->Lines->SaveToFile(SaveDialog1->FileName);
else ShowMessage("error");
SaveDialog1->InitalDir = olddir;

[pjh]

SaveDialog1->Execute();
改，
if (SaveDialog1->Execute())
{

}
else
{

}

[Lonelywolf1216]

1，功能一样，用同一个函数最好；
2，if()判断是否成功

[Bensoon]

改成

void __fastcall TForm1::SaveClick(TObject *Sender)
{
if(SaveDialog1->Execute())
{
cFileName=SaveDialog1->FileName;
RichEdit->Lines->SaveToFile(cFileName);
}
else
{
ShowMessage("未正确输入文件名？")//增加未正确输入文件名的处理语句

}
}