DELPHI基礎教程：文件管理（一）[4]

　　 增加一條記錄

　　當用戶單擊增加按鈕時屏幕將會彈出一個記錄編輯模式對話框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游戲開發實踐指南

[]  []  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25243.html