IniFileを読み込んだときのComboBoxの処理に関して (ID:23822)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はじめまして、過去ログ等見させてもらいましたが、
類似内容が見つからなかったため新規投稿お許しください。

質問内容は、IniFileを読み込んだときのComboBoxの処理に関して、です。
具体的に申しますと、

procedure TForm1.LoadClick(Sender: TObject);
var
  IniFile: TIniFile;
begin;
  IniFile := TIniFile.Create('./homa.ini');
  try
    ComboBox1.ItemIndex := IniFile.ReadInteger('ItemIndex', 'ComboBox1', -1);
  finally
    IniFile.Free;
  end;
end;

のようにロードし、そしてComboBox1は、

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
   -1:  yumi := false;
    //アイテム０
    0: begin
         min := 26;
         max := 33;
       end;
    //アイテム１
    1: begin
         min := 29;
         max := 32;
       end;
    //アイテム２
    2: begin
         min := 30;
         max := 34;
       end;
  end;
  Label9.Caption := '攻撃力 '+InttoStr(min)+'~'+InttoStr(max)+' ('+base+'秒)';
end;

と、記述しました。
このとき、ロードはうまくいき、ComboBox1.ItemIndexもうまく処理されるのですが、最後の

base:=Format('%f', [base_v]);
  Label9.Caption := '攻撃力 '+InttoStr(min)+'~'+InttoStr(max)+'

のLabel9.Caption部分の記述はなされません。
ロードした値に対し、TForm1.ComboBox1Change関数すべての処理を行いたいのです。
言葉足らずではありますが、ご助言いただけないでしょうか。

←解決時は質問者本人がここをチェックしてください。

戻る