掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テンキー入力の-と点の処理 (ID:36878)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Space1(TEdit)のOnKeyPressイベント var isDot: Boolean; sst, Minus: Integer; ss: string; begin ss := Space1.Text; sst := Space1.SelStart; isDot := (Pos('.', ss) > 0); Minus := Integer(Pos('-', ss) > 0); Space1.Maxlength := 8 + Minus; case Key of Char(VK_BACK): exit; '1'..'9': if (ss[Minus+1] = '0')and(ss[Minus+2] <> '.') then begin Delete(ss, Minus+1, 1); Space1.Text := ss; Space1.SelStart := sst-1; end; '0': if (sst = Minus+1)and(ss[Minus+1] = '0') then Key := #0; '-': if (sst > 0) then Key := #0; '.': if (isDot)or(sst = Minus) then Key := #0; else Key := #0; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.