熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

DELPHI基礎教程:文件管理(一)[4]

2013-11-23 17:51:57  來源: Delphi編程 

   增加一條記錄

  當用戶單擊增加按鈕時屏幕將會彈出一個記錄編輯模式對話框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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.