Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сравнить Combobox.Text и результат IntToStr 
V
    Опции темы
rus777
  Дата 12.11.2012, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 13.12.2006
Где: Ufa

Репутация: нет
Всего: нет



Доброго времени суток,уважаемые! Дописываю программу и на вроде бы очевидной мелочи зашел в тупик. Необходимо сравнить ComboBox.Text и (<>) результат IntToStr. Должно работать как условие для выполнения следующего далее кода или невыполнения. В memo результат IntToStr получаю нормально...работает. А при сравнении ComboBox.Text и результата IntToStr следует ошибка- Incompatible types: 'String' and 'Integer'...Если есть соображения по этому поводу, поделитесь пожалуйста, направьте на путь истины... smile  smile Необходимо выполнение кода,если ComboBox.Text< IntToStr...
PM   Вверх
kami
Дата 12.11.2012, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72



Цитата(rus777 @  12.11.2012,  09:05 Найти цитируемый пост)
следует ошибка- Incompatible types: 'String' and 'Integer'

код, выдающий это непотребство давай smile
PM MAIL WWW   Вверх
skyboy
Дата 12.11.2012, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260



Цитата(rus777 @  12.11.2012,  08:05 Найти цитируемый пост)
Incompatible types: 'String' and 'Integer'

значит, без intToStr  smile 
PM MAIL   Вверх
rus777
Дата 12.11.2012, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 13.12.2006
Где: Ufa

Репутация: нет
Всего: нет



Код сравнения?

Добавлено @ 10:51
Код

var
ct: string;
dt, cts: TDateTime;
btw: Integer;
...
 cts := StrToDateTime(''+ct+''); //данные из таблицы
 dt:=StrToDateTime(DateTimeToStr(Now));
   btw:=MinutesBetween(cts, dt); //считаем разницу в минутах
 if ADOQuery1.RecordCount>0 and
   ComboBox2.Text<(IntToStr(btw)) //как здесь ??? Понимаю,что так неправильно. Здесь ошибка: Incompatible types: 'String' and 'Integer'
       then begin ...

 smile 

без IntToStr он так останется-Integer...странно, что после конвертирования такую ошибку получаю....

Это сообщение отредактировал(а) rus777 - 12.11.2012, 11:05
PM   Вверх
rus777
Дата 12.11.2012, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 13.12.2006
Где: Ufa

Репутация: нет
Всего: нет



Здесь есть кто-нибудь?.... smile Людиииииииииииии......... smile 
PM   Вверх
superVad
Дата 12.11.2012, 12:30 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15



Код

if (ADOQuery1.RecordCount>0) and (ComboBox2.Text<(IntToStr(btw)))

Попробуй использовать скобочки.
PM MAIL   Вверх
northener
Дата 12.11.2012, 12:37 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20



ComboBox2.Text<(IntToStr(btw))
заменить на 
Код

StrToInt(ComboBox2.Text) < btw



--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
rus777
Дата 12.11.2012, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 13.12.2006
Где: Ufa

Репутация: нет
Всего: нет



superVad, спасибо огромное! Вроде код заработал smile  По крайней мере ошибка пропала...Сейчас буду проверять. Глаз замылился)))до такой мелочи не додумался

Добавлено через 2 минуты и 53 секунды
northener ,спасибо за участие в моей проблеме. Только в приводить к Integer мне не надо было.

Это сообщение отредактировал(а) rus777 - 12.11.2012, 12:43
PM   Вверх
superVad
Дата 12.11.2012, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15



rus777, ну вот еще - ссылка - было недавно.
PM MAIL   Вверх
rus777
Дата 12.11.2012, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 13.12.2006
Где: Ufa

Репутация: нет
Всего: нет



superVad,еще раз большое спасибо! Моя невнимательность.... Жаль, что пока еще не могу плюс поставить



Это сообщение отредактировал(а) rus777 - 12.11.2012, 13:12
PM   Вверх
northener
Дата 13.11.2012, 00:30 (ссылка) |    (голосов:4) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20



Цитата(rus777 @  12.11.2012,  12:41 Найти цитируемый пост)
northener ,спасибо за участие в моей проблеме. Только в приводить к Integer мне не надо было.

Очень "коряво" выглядит сравнение двух чисел на больше/меньше/равно путем сравнения их строковых представлений.
Будь я вашим преподавателем я имел бы по крайней мере три причины снизить вам оценку до тройки с минусом. smile


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1164 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.