知识大全文件管理（一）[3]

Posted 2022-07-22 文件

篇首语：缥帙各舒散，前后互相逾。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全文件管理（一）[3]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：文件管理（一）[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 记录文件的打开和创建

　　记录文件的打开和创建同文本文件一样也需要关联和初始化两个步骤同文本文件唯一的不同是不能使用Append过程

　　记录文件缺省情况下以读写方式打开如果想以只读或只写方式打开则需要修改System单元中定义的变量FileMode的值

　　FileMode的取值和意义如下表

　　表 FileMode的取值和意义

　　━━━━━━━━━━━━━━

　　取值意义

　　──────────────

　　只读

　　只写

　　读写

　　━━━━━━━━━━━━━━

　　FileMode是一个全局变量对它的每次修改都将影响所有Reset的操作因此在打开自己的文件后应还原它的值

　　在本系统中当用户按下打开按钮时首先弹出一个标准文件打开对话框要求用户输入或选择文件名确认后如果该文件名的文件存在则用Reset打开若不存在则创建程序清单如下

　　procedure TRecFileForm OpenButtonClick（Sender: TObject）

　　begin

　　if OpenDialog Execute then

　　FileName := OpenDialog FileName

　　else

　　exit;

　　AssignFile（MethodFile Filename）

　　try

　　Reset（MethodFile）

　　FileOpened := True;

　　except

　　On EInOutError do

　　begin

　　try

　　if FileExists（FileName） = False then

　　begin

　　ReWrite（MethodFile）

　　FileOpened := True;

　　end

　　else

　　begin

　　FileOpened := False;

　　MessageDlg（文件不能打开 mtWarning [mbOK] ）

　　end;

　　except

　　On EInOutError do

　　begin

　　FileOpened := False;

　　MessageDlg（文件不能创建 mtWarning [mbOK] ）

　　end;

　　if FileOpened = False then exit;

　　Count := FileSize（MethodFile）

　　if Count> then

　　ChangeGrid;

　　RecFileForm Caption := FormCaption+ +FileName;

　　NewButton Enabled := False;

　　OpenButton Enabled := False;

　　CloseButton Enabled := True;

　　end;

　　首先系统试图用Reset打开一个文件并置FileOpened为True 如果文件不能打开则引发一个I/O异常在异常处理过程中首先检测文件是否存在若不存在则创建这个文件否则是其它原因引发的异常则把FileOpend重置为False 并显示信息文件不能打开在文件创建过程中仍可能引发异常因而在一个嵌套的异常处理中把FileOpened重置为False 并提示信息文件不能创建

　　有关异常处理的内容请读者参看第十二章这段程序说明异常处理机制不仅能使我们的程序更健壮而且为编程提供了灵活性

　　当用户按下创建按钮时系统首先弹出一个标准输入框要求用户输入文件名确认后系统首先检测文件是否存在若存在则直接打开否则创建一个新文件打开或创建过程导致异常则重置FileName和FileOpened两个全局变量

　　procedure TRecFileForm NewButtonClick（Sender: TObject）

　　begin

　　FileName := InputBox（输入框请输入文件名）

　　if FileName = then Exit;

　　try

　　AssignFile（MethodFile FileName）

　　if FileExists（FileName） then

　　begin

　　Reset（MethodFile）

　　Count := FileSize（MethodFile）

　　if Count> then

　　ChangeGrid;

　　end

　　else

　　begin

　　Rewrite（MethodFile）

　　count := ;

　　end;

　　FileOpened := true;

　　Except

　　on EInOutError do

　　begin

　　FileName := ;

　　FileOpened := False;

　　end;

　　if FileOpened then

　　begin

　　NewButton Enabled := False;

　　OpenButton Enabled := False;

　　CloseButton Enabled := True;

　　RecFileForm Caption := FormCaption+ +FileName;

　　end;

　　当文件打开或创建后所要做的工作有

　　● 若文件非空则计算文件长度并用文件内容填充StringGrid

　　● 创建打开按钮变灰关闭按钮使能

　　● 把文件名附到窗口标题后

　　 记录文件的读入和显示

　　定义一个全局变量Count用来保存文件中的记录个数当文件装入时

　　Count := FileSize（MethodFile）

　　如果Count > 则首先确定StringGrid 的高度行数为保证StringGrid 不会覆蓋窗口下面的编辑框定义一个常量MaxShow 当Count < MaxShow时记录可全部显示当Count >= MaxShow时 StringGrid 自动添加一个滚动棒为保证滚动棒不覆蓋掉显示内容 StringGrid 的宽度应留有余地

　　确定StringGrid 高度行数的代码如下

　　With StringGrid do

　　if count < MaxShow then

　　Height := DefaultRowHeight * （Count+ ）+

　　else

　　Height := DefaultRowHeight * MaxShow+ ;

　　RowCount := Count+ ;

　　end;

　　而后从文件中逐个读入记录并显示在StringGrid 的相应位置

　　for i := to Count do

　　begin

　　Read（MethodFile MethodRec）

　　ShowMethod（MethodRec i）

　　end;

　　ShowMehtod是一个过程用来把一条记录填入StringGrid 的一行中对于Name Condition域而言只须直接赋值即可而对Nature 域需要把枚举类型值转化为对应意义的字符串（ : 微观 : 宏观）而对Result域则需要把数值转化为一定格式的字符串

　　Str （MethodRec Result: : ResultStr）

　　StringGrid Cells[ Pos] := ResultStr;

　　即Result显示域宽为其中小数点后位数为

cha138/Article/program/Delphi/201311/25242

知识大全 文件管理（一）[3]

知识大全文件管理（一）[3]