UC知道delphi savediglog多次保存问题
来源：百度知道 编辑：UC知道 时间：2024/06/07 17:04:13
我在用菜单控件和savediglog控件设置保存文件对话框时，虽然能够顺利保存文件，但是我对已经保存过的文件进行再次保存的时候，并不能和很多软件一样直接保存，而是仍然弹出保存对话框，而我不想它打开，而是直接保。要不然这样的话保存于另存为没区别了，并且最好还能实现保存过文件，保存按钮为灰色，有改动再变亮这个功能，谁会写这段代码，或者有什么方法，教教我…………急
各位高手，首先谢谢各位，不过我已经找到了一个方法，下面吧代码贴出，其他又需要的可以参考
begin
if (SaveDialog1.FileName = '') and not SaveDialog1.Execute then Exit;
wb1.Lines.SaveToFile(SaveDialog1.FileName);
end;
各位高手，首先谢谢各位，不过我已经找到了一个方法，下面吧代码贴出，其他又需要的可以参考
begin
if (SaveDialog1.FileName = '') and not SaveDialog1.Execute then Exit;
wb1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure TEditForm.MISaveClick(Sender:TObject);
begin
if PathName = DefaultFileName then //设置默认的保存路径，随便设偏一点。然后当前文件和它一样则使用savediglog另存为
//另存为
else
begin
Editor.Lines.saveToFile(PahtName); //已经保存过了,直接保存
Editor.Modified := False; //这个是指你内容有无修改，你可以在这把保存按钮设为灰色。
end;
end;
SaveDiglog是对话框控件，严格说它是“另存为”控件。在保存时，当然会产生对话框。
如果你不想产生对话框，而要直接保存时，你就必须想别的办法。例如：你做的是一个记事本程序。有“保存”和“另存为”。
“另存为”使用SaveDiglog来做。
“保存”使用以下代码：
Memo1.Lines.SaveToFile('c:\test.txt');
设置一个全局boolean变量 来标示