知识大全 文件管理（一）[4]
Posted 编辑
篇首语：但使书种多，会有岁稔时。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 文件管理（一）[4]相关的知识，希望对你有一定的参考价值。
DELPHI基础教程：文件管理（一）[4] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！
增加一条记录
当用户单击 增加 按钮时屏幕将会弹出一个记录编辑模式对话框EditForm 在编辑框中填入合适的内容并按OK键关闭后 相应值写入一个TMethod类型的变量MethodRec中 其中Nature和Result 域需要进行转换 之后增加的记录添加到StringGrid 的显示中
最后文件定位于尾部 写入当前记录 总记录数加
Seek（MethodFile Count）
Write（MethodFile MethodRec）
Count := Count+ ;
完整的程序清单如下
procedure TRecFileForm AddButtonClick（Sender: TObject）
var
MethodRec: TMethod;
Rl: Real;
k: Integer;
EditForm: TEditForm;
begin
if FileOpenEd = False then Exit;
EditForm := TEditForm Create（self）
if EditForm ShowModal <> idCancel then
begin
HazAttr text := ;
MethodRec Name := EditForm MethodName text;
MethodRec Condition := EditForm Condition text;
case EditForm NatureCombo ItemIndex of
:
MethodRec Nature := Micro;
:
MethodRec Nature := Macro ;
end;
Val（EditForm Result text Rl k）
MethodRec Result := Rl;
with StringGrid do
begin
if Count < MaxShow then
Height := Height+DefaultRowHeight;
RowCount := RowCount+ ;
end;
ShowMethod（MethodRec Count+ ）
seek（MethodFile Count）
write（MethodFile MethodRec）
Count := Count+ ;
end;
end;
修改记录
首先获取当前记录位置
CurrentRec := StringGrid Row ;
而后打开编辑对话框并显示当前值 修改完毕后 修改结果保存在一个记录中并在StringGrid 中重新显示
最后修改结果写入文件
Seek（MethodFile CurrentRec）
Write（MethodFile MethodRec）
完整程序如下
procedure TRecFileForm ModifyButtonClick（Sender: TObject）
var
MethodRec: TMethod;
Rl: Real;
k: Integer;
EditForm: TEditForm;
begin
if FileOpened = False then Exit;
EditForm := TEditForm Create（self）
CurrentRec := StringGrid Row ;
with EditForm do
begin
MethodName text := StringGrid Cells[ CurrentRec+ ];
Condition text := StringGrid Cells[ CurrentRec+ ];
if StringGrid Cells[ CurrentRec+ ] = 微 观 then
NatureCombo ItemIndex :=
else
NatureCombo ItemIndex := ;
Result text := StringGrid Cells[ CurrentRec+ ];
if ShowModal <> idCancel then
begin
HazAttr text := ;
MethodRec Name := MethodName text;
MethodRec Condition := Condition text;
case NatureCombo ItemIndex of
:
MethodRec Nature := Micro;
:
MethodRec Nature := Macro ;
end;
Val（Result text Rl k）
MethodRec Result := Rl;
ShowMethod（MethodRec CurrentRec+ ）
seek（MethodFile CurrentRec）
write（MethodFile MethodRec）
end;
end;
end;
返回目录 DELPHI基础教程
编辑推荐
Java程序设计培训视频教程
J EE高级框架实战培训视频教程
Visual C++音频/视频技术开发与实战
Oracle索引技术
ORACLE G数据库开发优化指南
Java程序性能优化 让你的Java程序更快 更稳定
C嵌入式编程设计模式
Android游戏开发实践指南
cha138/Article/program/Delphi/201311/25243相关参考
DELPHI基础教程：文件管理（三）[4] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 目录删
DELPHI基础教程：文件管理（一）[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 文件是
DELPHI基础教程：文件管理（一）[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 文件名
DELPHI基础教程：文件管理（一）[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 记录文
在Wndows资源管理器中，按住__键的同时，用鼠标将选定的文件拖放至同一驱动器的另一文件夹中，可以实现该文件的复
在Wndows资源管理器中，按住_____键的同时，用鼠标将选定的文件拖放至同一驱动器的另一文件夹中，可以实现该文件的复制。A、ShiftB、空格C、AltD、Ctrl答案：D解析：在同一个系统盘下，
知识大全 我需要一份正规的企业信用（合同）管理机构和专（兼）职信用（合同）管理人员任命文件，谁有啊，请帮帮忙
我需要一份正规的企业信用（合同）管理机构和专（兼）职信用（合同）管理人员任命文件，谁有啊，请帮帮忙提供一个任命书样本：人事任命书为适应新形势下公司经营发展需要，经公司管理层会议决议，决定对以下同志进行
（1）发行人成立的注册登记文件；（2）主管部门和证券交易所批准发行上市的文件；（3）承销协议；（4）国有资产管理部门关于资产证明估的确认报告；...备查文件备查文件的内容至少包括以下各项：（1）发行人
直接访问文件也能顺序访问只是一般效率不高【北京邮电大学一(分)】 存放在磁盘磁带上的文件即可以是顺序文件也可以是索引结构或其他结构类型的文件【山东大学一(分)】 检索出文件中的关键码值落在某个
如图所示文件夹窗口，里面一共有几个文件？A、1个B、2个C、4个D、不能确定答案：C解析：本题考查计算机常识。由图可知，显示出来的是2个文件，但下方状态栏还提示有2个隐藏文件，故一共是4个。答案为C。
本章简介 在数据处理方面特别是事务型的软件编制工作中都涉及到有关文件的知识有效地组织数据提供方便而又高效地利用数据 信息的方法是文件这一章所要讨论的内容尽管数据管理技术早已从文件系统发展到数据