掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ComboBox?? (ID:4372)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
説明不足ですいません。。。 以下のようなソートを書きました。 procedure TForm1.FormActive(Sender:TObject); begin Combobox1.Item.Add('+'); Combobox1.Item.Add('-'); Combobox1.Item.Add('*'); Combobox1.Item.Add('÷'); end; procedure TForm1.Button1Click(Sender:TObject); Var a,b,c: interger; s:string; begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); s:=copy(ComboBox1.Text,1,2); if s='+' then c:=a+b else if s='-' then c:=a-b else if s='*' then c:=a*b else c:=a div b; Edit3.Text:=IntToStr(c); Form1.ActiveComtorol:=Edit3; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.