delphi savediglog多次保存问题
我在用mainmenu菜单控件和savediglog控件设置保存文件对话框时，虽然能够顺利保存文件，但是我对已经保存过的文件进行再次保存的时候，并不能和很多软件一样直接保存，而是仍然弹出保存对话框，而我不想它打开，而是直接保存。要不然这样的话保存与另存为没区别了。
最好还能实现保存过文件，保存按钮为灰色，有改动再变亮这个功能，谁会写这段代码，或者有什么方法，教教我…………急
前面你说的，那得你自己判断，当保存过文件后（就是获得了用户选择的保存路径和文件名）就不要在弹出保存对话框，而是直接保存文件了。
具体代码是什么啊，还有第二个功能怎么实现啊
sFile := SaveDialog1.filename;
if not fileexists(sFile) then
begin
if SaveDialog1.Execute then
begin
... ...
end;
end else begin
//直接保存
end;
3楼的谢了，不过提示出错我原来的代码是：
procedure TForm1.Save1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
wb1.Lines .SaveToFile(SaveDialog1 .FileName);
end;
要是用你这个怎么用
你保存的文件正在使用。
End_rbody_60447841//-->
该回复于2009-10-19 10:44:48被管理员删除
对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP
newfang
(MIC)
等 级：
#7楼 得分：3回复于：2009-10-16 09:35:43
楼主意思不就是不想每次都弹出保存对话框吗？
那就判断要保存的文件是
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
这语言好难啊 学delphi简单 哭
一个dll 和一个 指针函数调用 搞了我2礼拜 还是在我有delphi基础的情况下 哭
难度 比 delphi 高很多。继续努力学啊。
好像也并不比delphi难多少吧
主要代码 不直观了� ......
Delphi(Pascal) code:
var
str:array of string;
i:Integer;
j:Integer;
begin
SetLength(str,1);
for i:=0 to 4 do
begin
j:=Length(Str);
SetLength(str,Length(str)+1);
S ......
两个月前，开始招聘Delphi程序员，招聘前随手写了几道题，用来笔试。
到现在还没有招到人，很无奈，标准甚至降到只要能做第1、3、5题就录用的水平。结果竟然没有人能够将这3题都答对。很多人连str ......
