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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.05.2014, 11:47   #1
UKRtortik
Форумчанин
 
Регистрация: 25.02.2014
Сообщений: 366
По умолчанию Сравнить 2 числа

Код:
if form2.sCheckBox1.Checked then Begin
if (strtoint(sLabel3.Caption)) = (strtoint(form2.sEdit4.Text)) then
IdThreadComponent1.Stop;
end;
Нужно сравнить число в sLabel3 и sEdit4 если они равны то остановить поток. Что я делаю не так?
UKRtortik вне форума Ответить с цитированием
Старый 09.05.2014, 11:58   #2
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

а зачем переводишь в число? текст и сравнивай. только на всякий случай используй
Код:
if trim(sLabel3.Caption) = trim(form2.sEdit4.Text) then
ZuBy вне форума Ответить с цитированием
Старый 09.05.2014, 12:16   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Цитата:
текст и сравнивай
'1'='01' ???
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 09.05.2014, 12:29   #4
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

Цитата:
Что я делаю не так?
все так .
eval вне форума Ответить с цитированием
Старый 09.05.2014, 12:45   #5
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 976
По умолчанию

Чтоб сравнить записи, их не обязательно приводить к числовому типу.
Код:
if (form2.sCheckBox1.Checked) and
(sLabel3.Caption = form2.sEdit4.Text) then
IdThreadComponent1.Stop;
doktor255 вне форума Ответить с цитированием
Старый 09.05.2014, 12:50   #6
UKRtortik
Форумчанин
 
Регистрация: 25.02.2014
Сообщений: 366
По умолчанию

ZuBy, не работает почему то((
UKRtortik вне форума Ответить с цитированием
Старый 09.05.2014, 12:52   #7
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Delete....
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 09.05.2014, 12:52   #8
UKRtortik
Форумчанин
 
Регистрация: 25.02.2014
Сообщений: 366
По умолчанию

doktor255, тоже не работает
UKRtortik вне форума Ответить с цитированием
Старый 09.05.2014, 13:09   #9
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 976
По умолчанию

Ок. Сделай в отдельной процедуре (кнопке) следующий код.
Код:
sLabel3.Caption = '123';
form2.sEdit4.Text := '123';
if sLabel3.Caption = form2.sEdit4.Text then
ShowMessage('Тексты одинаковы') else
ShowMessage('Тексты НЕ одинаковы')
И подумай, чей код не работает.
doktor255 вне форума Ответить с цитированием
Старый 09.05.2014, 16:26   #10
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

Код:
if form2.sCheckBox1.Checked then
form2.sCheckBox1.Checked равно TRUE?
ZuBy вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуется сравнить 3 огромных числа до 10^100 RIKISHI007 Общие вопросы C/C++ 32 12.07.2013 01:36
Как сравнить числа в делфи amki6 Помощь студентам 2 16.02.2013 20:51
Нужно считать и сравнить ну очень большие числа (C++) Nomicos Помощь студентам 11 14.07.2012 15:17
Объясните, как сравнить числа (123)8 и (100110)2. mmarina80 Помощь студентам 7 08.01.2010 15:38