this->MainSaveDialog->Filter = “Excel Files (*.xls)|.xls”;
this->MainSaveDialog->DefaultExt = “xls”;
this->MainSaveDialog->FileName =DateTimeToStr(Date());
if(this->MainSaveDialog->Execute())
{
this->dxMemData1->SaveToTextFile(this->MainSaveDialog->FileName);
ShowMessage(“保存成功!”);
}
倘若遇到 某个电脑中时间格式是“yyyy/M/d”
this->MainSaveDialog->Execute() 函数不执行的情况,
猜测是
this->MainSaveDialog->FileName文件名中存在“/”不合法造成不能执行弹出保存文件对话框
解决办法:
Date()替换为Date().FormatString(“yyyy-MM-dd”)