ComboBoxでの表示について (ID:2648)

名前

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

本文 初めまして、初心者でわからなくて困っています。 ComboBoxを使って追加入力したものがきちんとできているか 確かめるためにメッセージボックスとラベルを使っているのですが、 始めからItemで記述したものに関してはきちんと表示されるのですが 追加入力したものでは、最初の１文字しか表示されません。 色々とオブジェクトインスペクタをいじっているのですが、一向にらちがあきません。どこを設定しなおせばきちんと表示されるのでしょうか？識者の方いらっしゃればお願いします。プログラムは以下のようにしています。 procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.ItemIndex = 0 then SAM := ComboBox1.Text; //ここに入力したいのです Itemは’-------’と入力しています。 if ComboBox1.ItemIndex = 1 then SAM := 'Au'; if ComboBox1.ItemIndex = 2 then SAM := 'HOPG'; if ComboBox1.ItemIndex = 3 then SAM := 'DFU'; end; procedure TForm1.Button1Click(Sender: TObject); begin MessageDlg(SAM,mtInformation,[mbOK],0); Label1.Caption := SAM; end;