デルファイ書き込みレコードファイルのレコードタイプ

録音のpersonInfo =録音//定義型
、文字列[10]：名前

年齢：整数; 

終了; 

//キーレコード新しいレコードの追加が含ま書き込み

手順WriteRecを、

VARのNewRecを：PersonInfoを; //変数レック宣言

F：PersonInfoのファイルを、 //ファイルタイプ変数レック

RecFileName：ShortStringは; //は、完全なファイル名録音保存

RECCOUNT：整数; //数レック

始める

NewRec.Name:=NameEdit.Textを; //は、インタフェースからデータを取得

NewRec.Age：= StrToInt（ AgeEdit.Text）; 

RecFileName：= 'C：\ PersonInfo.Rec'; 

AssignFile（F.、RecFileName）; 

FILEEXISTS（RecFileName）は<> //真そのファイルが存在するかどうかを判定した場合に

開始

リライト（F.を）; //存在しません、新しいドキュメント

の書き込み（F.、NewRec）; 

終了

他を

始める

にFileMode：= 1; //配置された書き込み専用モードの

リセット（F）; //ファイルが存在して録音を追加します

RECCOUNT：=ファイルサイズ（F）; // 数RECが取得

（F、RECCOUNT）シーク; //ポインタの位置が提供する

、書き込み（F.、NewRec）

END; 

CLOSEFILE（F）; //ファイルクローズ

エンドを、

読ん//記録

ReadRec手順; 

VARのGETREC：PersonInfo; 

F：PersonInfoのファイル; 

RecFileName：ShortStringは; //ファイル名録音保存

RECCOUNT：整数;録音場所は、//ユーザーが読みたい

RecMaxを：整数; //レック最大で

始まります

RecFileName：= 'C：\ PersonInfo.Rec'; 

RECCOUNT：= StrToInt（CountEdit.Text）-1; //ユーザは、第1の入力1を抽出したい、など

AssignFile（F.、RecFileName）; 

FILEEXISTS IF（RecFileName）< >真[終了; 

にFileMode = 0; 

リセット（F）; 

RECMAX：=ファイルサイズ（F）; 

IF RECCOUNT> RECMAX次いで、出口1; //ジャンプが最大撮影を超えます。

シーク（F、RECCOUNT）; //読み込みポインタレック位置を設定

読む（F.、GETREC）; 

ShowMessage（GetRec.Name + IntToStr（GetRec.Age））; 

END;