保存文件对话框的用法

要uses StrUtils，代码如下：

procedure SaveFile(); var hmyFile : Integer; //文件的handle sFileName ,sExtName: string; //文件名与扩展名 extNameSet : TStringList; //存放savedialog.filter拆分后的扩展名 mysavedlg : TSaveDialog; begin mysavedlg := Tsavedialog.Create(Self); mysavedlg.Filter := 'aaa文件(*.txt)|*.txt|bbb文件(*.dat)|*.dat|ccc文件(*.htm)|*.htm|ddd文件(*.c++)|*.c++'; sExtName := mysavedlg.Filter; extNameSet := TStringList.Create; ExtractStrings(['|'],[],PChar(sExtName),extNameSet); //把savedialog.filter按'|'拆分后放入extNameSet中 if mysavedlg.Execute then begin sFileName := mysavedlg.FileName; sExtName := RightStr(extNameSet.Strings[mysavedlg.FilterIndex * 2 - 1],4); //计算出用户选择了哪个扩展名,只适用于扩展名均为三个字符的情况 if FileExists(sFileName + sExtName) then //判断文件是否已经存在 if Application.MessageBox('文件已经存在，是否覆盖？','文件已经存在',MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) <> IDYES then Exit; try hmyFile := FileCreate(sFileName + sExtName); if hmyFile = -1 then //判断文件是否创建失败,windows的文件名不允许有*,?,<等等字符所以有可能会创建文件失败 begin ShowMessage('创建文件失败'); Exit; end; try if FileWrite(hmyFile,PChar(mmo1.Lines.Text)^,StrLen(PChar(mmo1.Lines.Text))) <> -1 then //注意此行中"^"，FileWrite函数第二参数是指针 ShowMessage('保存成功') else ShowMessage('写入文件失败'); finally FileClose(hmyFile); end; except on E : Exception do ShowMessage(E.Message); end; end; end;

 

 

如果不用分折savedlg.filter的方法，其实也可以用OnTypeChange事件实现，响应该事件，用下面代码进行扩展名的改变即可，这里的sExtName应该是定义在类中的变量而不上面代码中的那样定义在函数内部了：

case saveDlg.FilterIndex of 1: sExtName := '.txt' ; 2: sExtName := '.dat' ; end;

在文件的使用中，主要注意两点：

1.文件名，包括扩展名的取得。

2.FileCreate,FileWrite,FileClose三个函数的调用。在这三个函数调用过程中要注意异常处理。因为FileCreate和FileWrite两个函数都是有返回值的，返回-1的时候表示这两函数执行的时候出现错误，但函数执行出现错误，却没有抛出异常，如果在程序中没有对这两个函数的返回值进行判断，例如：文件名中含有*号的时候，文件是无法创建的，FileCreate就返回-1，如果我们不判断返回是不是-1，接着执行FileWrite，就不可能把要保存的内容写到文件中，而FileWrite没有写入内容，也返回了-1，我们又没有进行判断，以为保存完了，到代码运行结束，最后的结果就是保存不成功，但我们是程序却认为保存成功，这将是一个导致数据丢失的BUG。