增加一条记录
当用户单击增加按钮时屏幕将会弹出一个记录编辑模式对话框EditForm在编辑框中填入合适的内容并按OK键关闭后相应值写入一个TMethod类型的变量MethodRec中其中Nature和Result 域需要进行转换之后增加的记录添加到StringGrid的显示中
最后文件定位于尾部写入当前记录总记录数加
Seek（MethodFileCount）
Write（MethodFileMethodRec）
Count := Count+;
完整的程序清单如下
procedure TRecFileFormAddButtonClick（Sender: TObject）
var
MethodRec: TMethod;
Rl: Real;
k: Integer;
EditForm: TEditForm;
begin
if FileOpenEd = False then Exit;
EditForm := TEditFormCreate（self）
if EditFormShowModal <> idCancel then
begin
HazAttrtext := ;
MethodRecName := EditFormMethodNametext;
MethodRecCondition := EditFormConditiontext;
case EditFormNatureComboItemIndex of
:
MethodRecNature := Micro;
:
MethodRecNature := Macro ;
end;
Val（EditFormResulttextRlk）
MethodRecResult := Rl;
with StringGrid do
begin
if Count < MaxShow then
Height := Height+DefaultRowHeight;
RowCount := RowCount+;
end;
ShowMethod（MethodRecCount+）
seek（MethodFileCount）
write（MethodFileMethodRec）
Count := Count+;
end;
end;
修改记录
首先获取当前记录位置
CurrentRec := StringGridRow ;
而后打开编辑对话框并显示当前值修改完毕后修改结果保存在一个记录中并在StringGrid中重新显示
最后修改结果写入文件
Seek（MethodFileCurrentRec）
Write（MethodFileMethodRec）
完整程序如下
procedure TRecFileFormModifyButtonClick（Sender: TObject）
var
MethodRec: TMethod;
Rl: Real;
k: Integer;
EditForm: TEditForm;
begin
if FileOpened = False then Exit;
EditForm := TEditFormCreate（self）
CurrentRec := StringGridRow;
with EditForm do
begin
MethodNametext := StringGridCells[CurrentRec+];
Conditiontext := StringGridCells[CurrentRec+];
if StringGridCells[CurrentRec+] = 微 观 then
NatureComboItemIndex :=
else
NatureComboItemIndex := ;
Resulttext := StringGridCells[CurrentRec+];
if ShowModal <> idCancel then
begin
HazAttrtext := ;
MethodRecName := MethodNametext;
MethodRecCondition := Conditiontext;
case NatureComboItemIndex of
:
MethodRecNature := Micro;
:
MethodRecNature := Macro ;
end;
Val（ResulttextRlk）
MethodRecResult := Rl;
ShowMethod（MethodRecCurrentRec+）
seek（MethodFileCurrentRec）
write（MethodFileMethodRec）
end;
end;
end;
返回目录DELPHI基础教程
编辑推荐
Java程序设计培训视频教程
JEE高级框架实战培训视频教程
Visual C++音频/视频技术开发与实战
Oracle索引技术
ORACLEG数据库开发优化指南
Java程序性能优化让你的Java程序更快更稳定
C嵌入式编程设计模式
Android游戏开发实践指南
[] [] [] []
![DELPHI基础教程：文件管理（一）[4]](/UploadFiles/1.jpg)