心
心随风
Unregistered / Unconfirmed
GUEST, unregistred user!
下例
TimeSeparator := '-';
strFileName := '有载测试数据【' + DateTimeToStr(Now) + '保存】.jdu';
SaveDialog1.FileName := strFileName;
if SaveDialog1.Execute then
begin
strFileName := SaveDialog1.FileName;
end
else
begin
Exit;
end;
上述在Vista下保存文件对话框打不开,估计是TimeSeparator在Vista下不起作用。
敬请高手指教!谢谢
TimeSeparator := '-';
strFileName := '有载测试数据【' + DateTimeToStr(Now) + '保存】.jdu';
SaveDialog1.FileName := strFileName;
if SaveDialog1.Execute then
begin
strFileName := SaveDialog1.FileName;
end
else
begin
Exit;
end;
上述在Vista下保存文件对话框打不开,估计是TimeSeparator在Vista下不起作用。
敬请高手指教!谢谢