◆説明◆
  ファイルの保存を行う際に、指定したファイル名でのバックアップファイ
ルを作成します。
  このサンプルでは、
  1:  "J_OH.fil" というファイルを "J_BAK1.fil" というファイル名に、
     "J_BAK1.fil" を "J_BAK2.fil" というファイル名にそれぞれ変更し、
  2:  "J_OH.fil" というファイル名で新たに保存を行います。

◆注意◆
  ファイル名の変更作業の "順序" に、注意が必要です。

◆サンプルコード◆
var
   save: TextFile;
   data：String;
begin
     // 1: まず、"J_BAK2.fil" を削除します。
     DeleteFile('J_BAK2.fil');

     // 2: "J_BAK1.fil" を "J_BAK2.fil" に変更します。
     RenameFile('J_BAK1.fil', 'J_BAK2.fil');

     // 3: "J_OH.fil" を "J_BAK1.fil" に変更します。
     RenameFile('J_OH.fil', 'J_BAK1.fil');

     // 4: 新規データを "J_OH.fil" に保存します。
     AssignFile(save, 'J_OH.fil');
     ReWrite(save);

     try
        // ・・・保存処理
        // ・・・保存処理
     finally
        CloseFile(save);
     end;
end;

                               　　　　　J-OH!(VEC05267)

Original document by J-OH!　　　　   氏 ID:(VEC05267)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。