• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Delphi XEの警告文を消したい)

Delphi XEの警告文を消す方法

このQ&Aのポイント
  • Delphi XEにおいて、特定の警告文が表示される場合があります。これを解消する方法を紹介します。
  • 警告文の内容は、'SysUtils' ユニットの 'CharInSet' 関数で使用することを検討するように指示しています。
  • 具体的な解決方法としては、ソースコードの一部を変更することが必要です。

質問者が選んだベストアンサー

  • ベストアンサー
  • nag0720
  • ベストアンサー率58% (1093/1860)
回答No.1

CharInSetを使いましょう。 if not(key in['0'..'9','.',Char(VK_RETURN),Char(VK_BACK)]) then ↓ if not CharInSet(key, ['0'..'9','.',Char(VK_RETURN),Char(VK_BACK)]) then

taka0012
質問者

お礼

お陰さまで、一発解決できました。ありがとうございました。