掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
case文を使って表現するには？ (ID:21496)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
case A of B: C: end; case の A には 順序型にしか使えません。（ヘルプ参照） B,C は、固定値である必要があったと思う。 これって何かのイベントハンドラ内なんでしょうか？ だとするなら、 function StrToFloatDef( S: string; Def: Single): single; begin try Result:=StrToFloat( S); except Result:= Def; end; end; procedure TForm？.On？？(Sender: TObject); var Ed: TEdit; begin Ed:= Sender as TEdit; Ed.Text:=:= StrToFloatDef( Arr[ Ed.Tag], n); でシンプルにかけます。 そうでないなら、 for i:=0 to hoehoe.ComponentCount-1 do begin if (Componets[i] is TEdit) then begin Ed:= TEdit( Components[i]); Ed.Text:= StrToFloatDef( Arr[ Ed.Tag],n); end; end; ともかけます。 いずれにせよ、 Arr に使われている 0.. 4 を Edit1 ... Edit4 に 変換するには、 TEdit.Tag などを使って 事前に Edit1.Tag:=0 などのようにしておく必要が あると思います。 n って何なのか分かりかねますが・・。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.