掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
チェック状態を保存するには？ (ID：21085)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
みなさん、どうもありがとうございます。 以下(Create部)のように読込部分を変更しました プログラムは選択後セーブボタンを押したときにレジストリに 登録するようにしています。 ここで、以下のプログラムの初期の実行ではレジストリに なにも登録されていないはずなので例外が発生すると 思ったのですが、例外が発生することもなく BDatにデータが（Trueになる箇所が存在）設定されます。 もちろん、ReadInteger等は例外が発生します。 ReadBinaryDataの場合は キー['RegItem']の存在をチェックしなければならないのでしょうか? var i: Integer; Reg: TRegistry; BDat: array [1..8192] of Boolean; begin Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('\SoftWare\ItemSelect', false) then begin try Reg.ReadBinaryData('RegItem', BDat, 8192); for i := 1 to 8192 do CheckListBox1.Checked[i - 1] := BDat[i]; except for i := 1 to 8192 do CheckListBox1.Checked[i - 1] := false; end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.