条件により処理が変わるなんてことは日常茶飯事だろう。処理ではなくセットする値が異なる場合もある。
「もしAがtrueだったら処理1を、falseだったら処理2を実行する」なーんてやつだ。

信号機とその色をプログラムにしてみる。

信号機には、進んでよし/注意/止まれの3種の状態がある。これを定義してみる。

type
  TSignal = (sgGo, sgWarning, sgCritical);

それぞれの状態に対応する色を返す関数はこんな感じになるだろうか？

function GetColor(ASignal: TSignal): TColor;
begin
  case ASignal of
    sgGo:
      Result := clBlue;
    sgWarning:
      Result := clYellow;
    sgCritical:
      Result := clRed;
  end;
end;

case文で結構すっきり書けた。

咳は出ていないのですが…

風邪でダウン中のくろねこです。
おとといは、体温が38℃あったこともあり、バタンキュー。昨日は既に参加表明していた忘年会に参加。帰宅後、ゼネにインするとぽんさんから101の羽が出るとのこと。その間にゆうまに1:1してみると、後一分で転職するとのこと、慌てて30秒で駆け付けてみると既に…
プレゼントをみていると、ペットクエストのタイムアウトでブリン西に……

その足でぽんの羽を見に行ったけど全然出ない！待ちくたびれた頃に出て来たかと思ったら、パーティーによるそうだたきであっちぅまに倒されグリはさぞかし無念かと……
ねこは危うくSSを取り損ねるところでした。

体調が復活したら、ウォーロード、シャドウ そしてビショップのスキル動画をアップしたいと思いまふ?

アイソボットは世界最小の量産型ロボット。ギネスにも載っているらしいが猫型では無い！
なんか、いろんなアクションが出来て、色々話してくれる様だが、残念なことに四次元ポケットはない。それでもアクションは200、言葉は180とおりあるらしい。結構すごいね。
現時点の技術水準からするとかなり安そうなのであるが、おもちゃとして見てみたらどうなのかな？ちょっと手を出しにくいね。買った時には遊びそうだけど、二週間もしたらただのオブジェになってそう。息子は多分遊ぶだろうけど、手荒な扱いを受けて動かなくなるから渡せないね。

気になったら、公式サイトもあるから見てみると良いかな？
http://www.isobotrobot.com/

アークメイジ新スキルをご紹介いたします～♪

ご協力：
千代丸さん