◆説明◆
　テキスト形式での、ファイルの出入力処理です。

◆注意◆
　1:　このサンプルは、起動・終了時に、自動的にファイルの出入力
　　を行います。
　2:　ダイアログでの指定ファイル・命名ファイルの場合は、
　　「AssignFile(Load, OpenDialog1.FileName)」
　　　などとなります。

◆サンプルコード◆
procedure TForm1.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var
   save: TextFile;
   data: String;
begin
     try
        AssignFile(save, 'ファィル名');
        ReWrite(save);

        //　データセーブ処理
        data := Label1.Caption;
        Writeln(save, data);
     finally
        CloseFile(save);
     end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
   Load: TextFile;
   data: String;
begin
     try
        AssignFile(Load, 'ファイル名');
        Reset(Load);
        try
           //　データロード処理
           Readln(Load, data);
           Label1.Caption := data;
        finally
           CloseFile(Load);
        end;
     except
        on EInOutError do
     end;
end;

                                97/11/25(火) J-OH!(VEC05267)

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

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