起動時のエラー (ID:3944)

名前

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

本文

Halbow です。

とりあえず、ComboBox1Click() と ListBox1Click() でなにをしたいのか分か
らないので、

http://inc.s35.xrea.com/Unit1.pas

の部分を添削しておきました。ComboBox1Click() は ComboBox1Change() だと
思います。ご自分のコードと見比べてください。

var
  Form1: TForm1;
  List1Atai:array[0..9] of integer;

implementation

{$R *.DFM}

const
  WU: array[0..8] of string = ('None','Clumsy','Create Food','Feeblemind','Heal',
       'Magic Arrow','Night Sight','Reactive Armor','Weaken');

procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  ListBox1.ItemIndex := 0; //リストボックスの一番上を既定で選択

for i := 0 to 8 do List1Atai[i] := i;
  List1Atai[9] := 8;
  // iniファイルがないので上記で初期化したものとする

ComboBox1.ItemIndex := List1Atai[0]; //リストボックス一番上の値をセット
  Memo1.Clear;
  for i := 0 to 9 do begin
    Memo1.Lines.Add('U'+Format('%.3d : ',[i+1])+WU[List1Atai[i]]);
  end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i,j:integer;
begin
  i := ListBox1.ItemIndex;
  j := ComboBox1.ItemIndex;
  Memo1.Lines[i] := 'U'+Format('%.3d : ',[i+1])+WU[j];
  List1Atai[0] := j;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ComboBox1.ItemIndex := List1Atai[ListBox1.ItemIndex];
end;

> 素人の僕には

わたしもアマチュアです。是非、めげずにがんばってください。

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

戻る