📄 017.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基础教程-->第六章 文件管理（二）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基础教程 第六章 文件管理（二）">
<META NAME="description" CONTENT=" - DELPHI基础教程 - 第六章 文件管理（二）">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD CLASS="tt3" VALIGN="top" width="8%" bgcolor="#e0e0e0"><strong><A HREF="018.htm"><FONT style="FONT-SIZE: 9pt">后一页</font></A><BR>
<A HREF="016.htm"><FONT style="FONT-SIZE: 9pt">前一页</font></A><BR>
<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目录</font></A><BR>
<A HREF="../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首页</font></A><BR>
</strong>
</TD>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">第六章 文件管理（二）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p>6.2.7 <font face="宋体" lang="ZH-CN">记录的删除、插入、排序 </p>
<p> 删除一条记录的基本思路是：获取当前记录的位置并把该位置后的记录逐个向前移动。</font>
<font face="宋体" lang="ZH-CN">文件在最后一条记录前截断。 </p>
<p> </font>for i:=CurrentRec+1 to Count-1 do</p>
<p>begin</p>
<p>seek(MethodFile,i);</p>
<p>read(MethodFile,MethodRec);</p>
<p>seek(MethodFile,i-1);</p>
<p>Write(MethodFile,MethodRec);</p>
<p>end;</p>
<p>Truncate(MethodFile);<font face="宋体" lang="ZH-CN"> </font></p>
<p><font face="宋体" lang="ZH-CN">
为避免误删除，在进行删除操作前弹出一个消息框进行确认。删除后要更新全局变量的值和显示内容： </p>
</font><p>Count := Count - 1;</p>
<p>ChangeGrid; </p>
<p><font face="宋体" lang="ZH-CN">
完整的程序如下： </p>
</font><p>procedure TRecFileForm.DeleteButtonClick(Sender: TObject);</p>
<p>var</p>
<p>NewFile: MethodFileType;</p>
<p>MethodRec: TMethod;</p>
<p>NewFileName: String;</p>
<p>i: Integer;</p>
<p>begin</p>
<p>if FileOpened = False then Exit;</p>
<p>CurrentRec := StringGrid1.Row-1;</p>
<p>if CurrentRec < 0 then Exit;</p>
<p>if MessageDlg('Delete Current Record ?', mtConfirmation,</p>
<p>[mbYes, mbNo], 0) = idYes then</p>
<p>begin</p>
<p>HazAttr.text := '';</p>
<p>for I := CurrentRec+1 to Count-1 do</p>
<p>begin</p>
<p>seek(MethodFile,i);</p>
<p>read(MethodFile,MethodRec);</p>
<p>seek(MethodFile,i-1);</p>
<p>Write(MethodFile,MethodRec);</p>
<p>end;</p>
<p>Truncate(MethodFile);</p>
<p>Count := Count-1;</p>
<p>ChangeGrid;</p>
<p>end;</p>
<p>end;</p>
<p><font face="宋体" lang="ZH-CN"> 这里所显示的删除操作简单明了。但在程序开始设计时我却走了一条弯路，后来发现虽然这种方法用于记录的删除操作显得笨拙、可笑，但却恰恰是记录插入、排序的思想。</font></p>
<font face="宋体" lang="ZH-CN"><p> 这种思想的核心是创建一个新文件保存更新后的内容。若新文件顺利创建，则删除原文件，否则恢复原来的文件。程序清单如下： </p>
</font><p>procedure TRecFileForm.DeleteButtonClick(Sender: TObject);</p>
<p>var</p>
<p>NewFile: MethodFileType;</p>
<p>MethodRec: TMethod;</p>
<p>NewFileName: String;</p>
<p>i: Integer;</p>
<p>begin</p>
<p>if FileOpened = False then Exit;</p>
<p>CurrentRec := StringGrid1.Row-1;</p>
<p>if CurrentRec < 0 then Exit;</p>
<p>if MessageDlg('Delete Current Record ?', mtConfirmation,</p>
<p>[mbYes, mbNo], 0) = idYes then</p>
<p>begin</p>
<p>HazAttr.text := '';</p>
<p>NewFileName := ChangeFileExt(FileName,'.sav');</p>
<p>try</p>
<p>AssignFile(NewFile,FileName);</p>
<p>ReWrite(NewFile);</p>
<p>Except</p>
<p>On EInOutError do</p>
<p>begin</p>
<p>Rename(MethodFile,FileName);</p>
<p>Exit;</p>
<p>end;</p>
<p>end;</p>
<p>for i := 1 to Count do</p>
<p>if I <> CurrentRec+1 then</p>
<p>begin</p>
<p>MethodRec := GridToRec(i);</p>
<p>Write(NewFile,MethodRec);</p>
<p>end;</p>
<p>closeFile(MethodFile);</p>
<p>try</p>
<p>AssignFile(MethodFile,Filename);</p>
<p>Reset(MethodFile);</p>
<p>except</p>
<p>on EInOutError do</p>
<p>begin</p>
<p>DeleteFile(FileName);</p>
<p>AssignFile(MethodFile,NewFileName);</p>
<p>Reset(MethodFile);</p>
<p>Rename(MethodFile,FileName);</p>
<p>Exit;</p>
<p>end;</p>
<p>DeleteFile(NewFileName);</p>
<p>Count:=Count-1;</p>
<p>ChangeGrid;</p>
<p>end;</p>
<p>end;</p>
<font face="宋体" lang="ZH-CN"><p> 对于记录插入，方法基本同上。对于排序，可先将关键域读入排序，而后再按排序结果对应的记录号顺序重写文件。 </p>
</font><p>6.2.8 <font face="宋体" lang="ZH-CN">结果综合 </p>
<p> 对不同方法的评估结果，可按一定的公式进行综合。当用户按下“计算”按钮时，系统进行计算并把综合结果写入</font>HazAttr<font
face="宋体" lang="ZH-CN">只读编辑框中。</p>
<p> 为保证结果显示的正确性，每次增加、修改、删除操作确认后</font>HazAttr<font
face="宋体" lang="ZH-CN">编辑框清空。 </p>
</font><p>6.2.9 <font face="宋体" lang="ZH-CN">编辑对话框的输入检查 </p>
<p> 当用户单击“增加”或“修改”按钮时系统将弹出一个编辑对话框，让用户输入或修改记录内容。其中的三个编辑框，一个组合列表框分别对应</font>TMethod
<font face="宋体" lang="ZH-CN">的四个域。由于</font>TMethod<font face="宋体"
lang="ZH-CN">的</font>Result<font face="宋体" lang="ZH-CN">域必须是</font>[0,1]<font
face="宋体" lang="ZH-CN">间的小数，因此当用户按</font>OK<font face="宋体"
lang="ZH-CN">键关闭对话框时应进行类型和范围检查。</p>
<p> 在</font>VB<font face="宋体" lang="ZH-CN">中我做过同样的工作，那时需要对用户输入的键码逐个进行判断。但这种方法很繁琐、很难做圆满</font>(<font
face="宋体" lang="ZH-CN">如不能很好地支持编辑键</font>)<font face="宋体"
lang="ZH-CN">。而</font>Object Pascal<font face="宋体" lang="ZH-CN">提供了更好的方法。这种方法的关键就在于它的类型转换函数</font>Val<font
face="宋体" lang="ZH-CN">： </p>
</font><p>procedure Val(Str: String;var V; var Code: Integer)<font face="宋体"
lang="ZH-CN">； </p>
<p> </font>V<font face="宋体" lang="ZH-CN">是由</font>Str<font face="宋体"
lang="ZH-CN">转换成的整型或实型数。若字符串非法，则出错位置返至</font>Code;<font
face="宋体" lang="ZH-CN">否则置</font>Code<font face="宋体" lang="ZH-CN">为</font>0<font
face="宋体" lang="ZH-CN">。字符串非法并不会引发一个转换异常。</p>
<p> 如果转换后的数超出了我们的范围，则显式把</font>Code<font
face="宋体" lang="ZH-CN">置为</font>-1<font face="宋体" lang="ZH-CN">。最后统一通过检测</font>Code<font
face="宋体" lang="ZH-CN">是否为</font>0<font face="宋体" lang="ZH-CN">来判断输入是否合法。</p>
<p> 我们把输入检查放在对话框的</font>OnCloseQuery<font face="宋体"
lang="ZH-CN">事件处理过程中。如输入非法，则禁止对话框关闭，并将输入焦点置于</font>Result<font
face="宋体" lang="ZH-CN">编辑框中。但假如用户按了</font>Cancel<font
face="宋体" lang="ZH-CN">按钮，则这种检查是多余的。为此定义一个布尔变量</font>IsCancel<font
face="宋体" lang="ZH-CN">，对话框生成时置为</font>False<font face="宋体"
lang="ZH-CN">。假如用户按下</font>Cancel<font face="宋体" lang="ZH-CN">，则置为</font>True<font
face="宋体" lang="ZH-CN">，此时</font>OnCloseQuery<font face="宋体" lang="ZH-CN">事件不进行输入检查。</p>
<p> 对话框的</font>OnCloseQuery<font face="宋体" lang="ZH-CN">事件处理过程的程序清单如下： </p>
</font><p>procedure TEditForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);</p>
<p>var</p>
<p>Res: Real;</p>
<p>k: Integer;</p>
<p>begin</p>
<p>if IsCancel = False then</p>
<p>begin</p>
<p>val(Result.text,Res,k);</p>
<p>if (Res > 1) or (Res < 0) then k := -1;</p>
<p>if k <> 0 then</p>
<p>begin</p>
<p>MessageDlg('<font face="宋体" lang="ZH-CN">非法输入</font> <font face="宋体"
lang="ZH-CN">！</font>',mtWarning,[mbOK],0);</p>
<p>Result.text := '';</p>
<p>CanClose := False;</p>
<p>Result.SetFocus;</p>
<p>end;</p>
<p>end;</p>
<p>end; </p>
<p>6.2.10 <font face="宋体" lang="ZH-CN">文件和系统的关闭 </p>
<p> 文件关闭须调用</font>CloseFile<font face="宋体" lang="ZH-CN">过程： </p>
<p> </font> CloseFile(MethodFile); </p>
<p><font face="宋体" lang="ZH-CN">并对系统的状态重新进行设置。 </font></p>
<p><font face="宋体" lang="ZH-CN">
系统关闭时首先检测当前是否有打开的文件。若有则先关闭文件。这在主窗口的</font>OnCloseQuery<font
face="宋体" lang="ZH-CN">事件中实现。</font></p>
<p><font face="宋体" lang="ZH-CN">实现文件关闭的程序清单如下： </p>
</font><p>procedure TRecFileForm.CloseButtonClick(Sender: TObject);</p>
<p>begin</p>
<p>if FileOpened then</p>
<p>begin</p>
<p>CloseFile(MethodFile);</p>
<p>FileOpened := False;</p>
<p>ClearGrid;</p>
<p>OpenButton.Enabled := True;</p>
<p>NewButton.Enabled := True;</p>
<p>CloseButton.Enabled := False;</p>
<p>RecFileForm.Caption := FormCaption;</p>
<p>end;</p>
<p>end; </p>
<p><font face="宋体" lang="ZH-CN">实现系统关闭前检查的程序清单如下：</p>
</font><p>procedure TRecFileForm.FormCloseQuery(Sender: TObject;</p>
<p>var CanClose: Boolean);</p>
<p>begin</p>
<p>if FileOpened then</p>
<p>closeFile(MethodFile);</p>
<p>end; </p>
<p>6.2.11 <font face="宋体" lang="ZH-CN">记录文件小结 </p>
<p> 我们所举的例子虽然简单，但基本覆盖了记录文件操作的主要方面。这里关键问题在于灵活应用</font>Delphi<font
face="宋体" lang="ZH-CN">提供的文件管理函数。同时，为了保证程序的健壮性应对异常进行捕获并处理。在数据库应用技术发展的今天，记录文件的重要性也许有所下降，但对象我们这里所处理的简单问题它仍有用武之地。</p>
<p> 这里所举的例子一次只能处理一个文件。但读者可以很容易把它改为一个</font>MDI<font
face="宋体" lang="ZH-CN">程序。虽然对于这里的实际情况来说，似乎并无必要。 </p>
</font><p align="center">6.3 <font face="宋体" lang="ZH-CN">文件控件的应用 </p>
<p> </font>Delphi<font face="宋体" lang="ZH-CN">文件管理的最大特色是提供了一组文件操作控件。利用这些控件我们可以快速开发一个文件名浏览系统。其功能强大与其所需书写代码之少所形成的强烈反差，正是</font>Dephi<font
face="宋体" lang="ZH-CN">生命力的体现。 </p>
</font><p>6.3.1 <font face="宋体" lang="ZH-CN">文件控件及其相互关系 </p>
<p> </font>Delphi<font face="宋体" lang="ZH-CN">提供的专用文件控件如下表所示。 </p>
<p> 表</font>6.4 Delphi<font face="宋体" lang="ZH-CN">专用文件控件━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━</font></p>
<font face="宋体" lang="ZH-CN"><p>控件名</font> <font face="宋体" lang="ZH-CN">功
能</font></p>
<p><font face="宋体" lang="ZH-CN">─────────────────────────────────────</p>
</font><p>DriveComboBox <font face="宋体" lang="ZH-CN">驱动器组合列表框。用于选择当前驱动器</p>
</font><p>FileListBox <font face="宋体" lang="ZH-CN">文件列表框。用于显示当前目录中的文件和选中当前文件</p>
</font><p>FilterComboBox <font face="宋体" lang="ZH-CN">文件类型组合列表框。用于选择显示文件的类型</p>
</font><p>DirectoryOutline <font face="宋体" lang="ZH-CN">目录树</font>(6.4<font
face="宋体" lang="ZH-CN">节专门介绍</font>) </p>
<p><font face="宋体" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━</p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -