SaveDialog保存不了？？？郁闷，帮忙啊！！！！！！

Question

我把SaveDialog的filename赋值为 D:\aaa.txt 执行保存的时候怎么不生成一个空的文本文件啊？？急，在线等，同样，我要生成一个空的word文档也不行 :(

Answer 1

SaveDialog只是把一个文件名传递给控件.并不直接生成文件的呀

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
IF SaveDialog1.Execute THEN
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;保存文件至少需要一个流啊，那个流是空的文件就空了

Answer 3

SaveDialog只用来返回文件路径和文件名,不作其他工作
你如果要生成一个空txt文件,可以这样:
var
  Strs: TStringList;
begin
  Strs := TStringList.Create;
  Strs.SaveToFile('D:\aaa.txt');
  Strs.Free;
end;

Answer 4

用SaveToFile；
OpenDialog和SaveDialog只返回文件名的，不做操作

Answer 5

看下TSaveDialog的描述吧:
TSaveDialog displays a modal Windows dialog box for selecting file names and saving files. The dialog does not appear at runtime until it is activated by a call to the Execute method. When the user clicks Save, the dialog closes and the selected file name is stored in the FileName property.
最后那句,the selected file name is stored in the FileName property,明白了吧

Answer 6

SaveDialog只是提供一个界面，不执行文件的相关操作（除了检查文件是否存在，文件名是否有效等之外），对于文件的操作需要自己写代码来解决。

Answer 7

:-> 呵呵 是哦...不过 楼主 如果把 TSaveDialog 改写成直接保存的功能的话  更好瓦 ^_^