IniFileを読み込んだときのComboBoxの処理に関して

解決

ボーボボ 2006-11-09 04:01:11 No: 23822

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

質問内容は、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関数すべての処理を行いたいのです。
言葉足らずではありますが、ご助言いただけないでしょうか。

ボーボボ 2006-11-09 04:02:12 No: 23823

base:=Format('%f', [base_v]);は削除忘れです。
すいません。

igy 2006-11-09 08:37:16 No: 23824

ComboBox1.ItemIndex := IniFile.ReadInteger('ItemIndex', 'ComboBox1', -1);
の次の行にでも、
ComboBox1Change(Self);
を挿入してみてはどうでしょう？

ボーボボ 2006-11-09 14:08:59 No: 23825

完璧です。お付き合いありがとうございました(´；ω；｀)ウッ…