お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"ファイル読込み時に StringGrid のセル幅復元"





◆説明◆
 StringGrid の goColSizing を True とするソフトで、ファイルの
オープン時に前回のセル幅を復元します。

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

◆サンプルコード◆
// 読み込み時
procedure TForm1.FormCreate(Sender: TObject);
var
   Load: TextFile;
   data: String;
   Col: Integer;
begin
     try
        AssignFile(Load, 'ファイル名');
        Reset(Load);
        try
           // データロード処理
           for Col := 0 to StringGrid1.ColCount - 1 do
           begin
              Readln(Load, data);
              StringGrid1.ColWidths[Col] := StrToInt(data);
           end;
        finally
           CloseFile(Load);
        end;
     except
        on EInOutError do
     end;
end;

// 保存時
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
   save: TextFile;
   data: String;
   Col: Integer;
begin
     try
        AssignFile(save, 'ファイル名');
        ReWrite(save);

        // データセーブ処理
        for Col := 0 to StringGrid1.ColCount - 1 do
        begin
             data := IntToStr(StringGrid1.ColWidths[Col]);
             Writeln(save, data);
        end;
     finally
        CloseFile(save);
     end;
end;
                                    J-OH!(VEC05267)

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


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

Copyright 1996-2002 Delphi Users' Forum