掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Editで入力文字を制限するには (ID:41968)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になります。 D2007で作成したアプリを XE2 で再コンパイルしているのですが、 入力文字の制限をしている箇所で警告が出力されます。 実用上特に問題はなさそうなのですが、今後の事を考えて正しい 記述に修正したいのですが、よくわかりりません。 よろしくお願いいたします。 以下、ソースコードおよび警告メッセージです。 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Key = chr($d)) then Edit2.SetFocus; // 数値およびバックスペースのみ受け付ける if not (Key in ['0'..'9',Chr(VK_BACK)]) then Key := #0; end; [DCC 警告] Unit1.pas(xxxx): W1050 set式で WideChar がバイト char に縮小されました。'SysUtils' ユニットの 'CharInSet' 関数で使用することを検討してください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.