Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2013, 12:45   #1
MIKE11IPME
Форумчанин
 
Регистрация: 03.05.2010
Сообщений: 159
По умолчанию Проверка условия

Код:
if IsCharAlphaNumeric(ad)=True then
        begin
          if (not TryStrToInt(opz_m[l],w)) and (opz_m[l]<>'')and
             (Ssr[sl]<>FormatSettings.DecimalSeparator) and
             (not IsCharAlphaNumeric(Ssr[sl])) then Inc(l);
          opz_m[l]:=opz_m[l]+ad;
          goto inct;
        end;
Исходное число 0,02 ,без последней строки(not IsCharAlphaNumeric(Ssr[sl])),число 0,0 (тут идет на проверку "2-ка") записанное в массив, при проверке условия TryStrToInt(opz_m[l],w) не выдает результат Тру - почему ?
Т.е. при проверке 0,0 не считается числом...

Последний раз редактировалось MIKE11IPME; 09.06.2013 в 13:27.
MIKE11IPME вне форума Ответить с цитированием
Старый 09.06.2013, 14:42   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,430
По умолчанию

Цитата:
Т.е. при проверке 0,0 не считается числом...
1. Оно и не целое.
2. Есть функция IsNaN
Человек_Борща вне форума Ответить с цитированием
Старый 09.06.2013, 16:20   #3
MIKE11IPME
Форумчанин
 
Регистрация: 03.05.2010
Сообщений: 159
По умолчанию

спс
ИзНан возьму на заметку только вот в моем случае легче просто трай ту флоат так как массив строк использую
Код:
if IsCharAlphaNumeric(ad)=True then
        begin
          if (not TryStrToFloat(opz_m[l],w)) and (opz_m[l]<>'') then Inc(l);
          opz_m[l]:=opz_m[l]+ad;
          goto inct;
        end;

Последний раз редактировалось MIKE11IPME; 09.06.2013 в 22:07.
MIKE11IPME вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка условия. sql запрос II_Dimit_II БД в Delphi 1 31.05.2013 03:08
Проверка условия. Туплю (( Lecter2009 БД в Delphi 1 10.09.2010 10:13
Проверка условия в ячейках provodnikam Microsoft Office Excel 4 26.11.2009 11:12
Проверка условия artemavd БД в Delphi 21 07.05.2009 18:20
Проверка условия Luciferium БД в Delphi 1 05.06.2007 16:23