Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Проверить, числовое ли введено значение

Delphi , Синтаксис , Типы и Переменные

Проверить, числовое ли введено значение

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
  ClipBrd;

 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 var
   Mgs: TMsg;

   procedure EatKey;
   { Clear Keyboardbuffer / Tastaturbuffer leeren }
   begin
     PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
   end;

 begin
   { Check if control pressed / uberprufen, ob Control Taste gedruckt }
   if (ssCtrl in Shift) then
     case key of
       { Ctrl + v }
       86:
         begin
           { determine if the Clipboard contains a string type }
           { uberprufen, ob es Text in der Zwischenablage hat }
           if Clipboard.HasFormat(CF_TEXT) then
             { Check if text consists of numbers }
             { uberprufen, ob der Text aus Zahlen besteht }
             try
               StrToInt(Clipboard.AsText);
             except
               { If no then don't insert text }
               { Wenn nein, dann ignoriere das Einfugen }
               EatKey
             end;
         end;
       { Ctrl + c }
       67: { do nothing / nichts machen }
         else
           EatKey;
     end
   { else check for allowed characters such as BackSpace, RETURN...}
   { sonst auf erlaubte Zeichen uberprufen }
   else if not (Char(Key) in [#8, #13, '.', '0'..'9','`'..'i' ]) then EatKey;
 end;

 // Use your own Popup Menu to customize paste. 

Статья Проверить, числовое ли введено значение раздела Синтаксис Типы и Переменные может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Типы и Переменные ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
14.12.2019 16:07:09/0.10473203659058/0