case语句
<p>选项多时使用。选项少可以用if语句
语法：</p>
<pre><code class="language-delphi">case &lt;表达式&gt; of
&lt;数值&gt;:&lt;语句&gt;;
&lt;数值&gt;:&lt;语句&gt;;
else
&lt;语句&gt;;
end;</code></pre>
<p>例子：</p>
<pre><code class="language-delphi">procedure TForm1.Button1Click(Sender: TObject);
var
A: Integer;
begin
A :=StrtoInt(Edit1.Text);
Label1.caption := Edit1.Text;
case A of
1:showmessage(&#039;第一&#039;);
2:showmessage(&#039;第二&#039;);
3:showmessage(&#039;第叁&#039;);
else
ShowMessage(&#039;都不是！&#039;);
end;
end;</code></pre>