掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列分岐のCase文について (ID:148994)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じかな function Select(Text: String; DATA: Array of String): Integer; var I: Integer; begin RESULT := -1; for I:=0 to High(DATA) do begin //大小区別するなら LowerCase 外す if LowerCase(TEXT) = LowerCase(DATA[I]) then RESULT := I; end; end; procedure TForm3.Button1Click(Sender: TObject); var S: String; begin S := 'AA'; case Select(S,['AA','BB']) of 0: begin Caption := 'AA'; end; 1: begin Caption := 'BB'; end else begin Caption := 'CC'; end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.