Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
8
Добавлен:
25.05.2014
Размер:
996 б
Скачать
#ifndef _CHECK
#define _CHECK
#include <vcl.h>
bool Check(TEdit *T)//, char *mess)
{
   AnsiString s=T->Text;
   bool b=false;
   byte p=0;
   if (s.Length()==0)
   {
      b=true;
   }
   else
   for (int i=1;i<=s.Length();i++)
   {
      if (i==1 && s[1]!='+' && s[1]!='-' &&
         (s[1]<'0' || s[1]>'9') && s[1]!='.'
          && s[i]!=',')
          {
             b=true;
             break;
          }
      else if (i>1 &&(s[i]<'0' || s[i]>'9') && s[i]!='.' && s[i]!=',')
          {
             b=true;
             break;
          }
      if (s[i]=='.'||s[i]==',')
          {
             p++;
             if (p>1)
             {
                b=true;
                break;
             }
          }
   }
   if (b)
   {
      char c[255]="Error: untrue entered value ";
      T->Text='0';

      MessageBox(NULL,c,"Error",MB_ICONERROR|MB_OK);
      return false;
   }
   else
   {
     return true;
   }
}

#endif //_CHECK
Соседние файлы в папке 2.1.1