Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Сравнить Combobox.Text и результат IntToStr

Автор: rus777 12.11.2012, 09:05

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

Необходимо выполнение кода,если ComboBox.Text< IntToStr...

Автор: kami 12.11.2012, 10:10

Цитата(rus777 @ 12.11.2012, 09:05

)

следует ошибка- Incompatible types: 'String' and 'Integer'

код, выдающий это непотребство давай smile

Автор: skyboy 12.11.2012, 10:21

Цитата(rus777 @ 12.11.2012, 08:05

)

Incompatible types: 'String' and 'Integer'

значит, без intToStr smile

Автор: rus777 12.11.2012, 10:44

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

Добавлено @ 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 ...

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

Автор: rus777 12.11.2012, 11:39

Здесь есть кто-нибудь?....

Людиииииииииииии......... smile

Автор: superVad 12.11.2012, 12:30

Код


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

Попробуй использовать скобочки.

Автор: northener 12.11.2012, 12:37

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

Код


StrToInt(ComboBox2.Text) < btw

Автор: rus777 12.11.2012, 12:41

superVad, спасибо огромное! Вроде код заработал smile

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

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

Автор: superVad 12.11.2012, 12:50

rus777, ну вот еще - http://forum.vingrad.ru/topic-354049.html - было недавно.

Автор: rus777 12.11.2012, 12:55

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

Автор: northener 13.11.2012, 00:30

Цитата(rus777 @ 12.11.2012, 12:41

)

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

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