掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
case文を使って表現するには？ (ID：21500)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
参考までに簡潔に書きたいだけなら、これ以上ないぐらい省略（笑 var i: Integer for i := 0 to 4 do with FindComponent('Edit' + IntToStr(i)) As TEdit do if not TryStrToFloat(Text, Arr[i]) then Text := FloatToStr(n); Editへの入力を数字だけに制限すれば処理そのものが不要ですけどね・・・
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.