Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 3
Регистрация: 26.10.2013
Сообщений: 133

Ошибка

07.12.2013, 17:00. Показов 2280. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вот код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if ((ComboBox1->Items=="blabla") && (Edit5->Text<"500") && (Edit2->Text>="<0") &&
(Edit3->Text>="0"))
{
MessageBox(0,"blabla","blabla",MB_OK);
}
 
else if ((ComboBox1->Items=="blabla") && (Edit5->Text>="500") && (Edit2->Text>="0") &&
(Edit3->Text>="0"));
{
MessageBox(0, "blabla","blabla",MB_OK);
MessageBox(0, "blabla","blabla!",MB_OK);
}
else if ((ComboBox1->Items=="blabla") && (Edit5->Text>="0") && (Edit2->Text>="0") &&
(Edit3->Text>="0"))
{
MessageBox(0, "blabla", "blabla",MB_OK);
 
}
}
Вот ошибка:

[BCC32 Error] Unit1.cpp(33): E2054 Misplaced else
Full parser context
Unit1.cpp(20): parsing: void _fastcall TForm1::Button3Click(TObject *)
[BCC32 Warning] Unit1.cpp(33): W8011 Nonportable pointer comparison
Full parser context
Unit1.cpp(20): parsing: void _fastcall TForm1::Button3Click(TObject *)

Что делать?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.12.2013, 17:00
Ответы с готовыми решениями:

IIS- asp ошибка: HTTP 500.100 - Внутренняя ошибка сервера - ошибка ASP Internet Information Services
Привет! Конфигурация win2000pro sp2, стандартный IIS, IE 5. При попытке обратиться к сценарию(asp) получаю ошибку: &lt;пропуск&gt;...

Ошибка при чтении изменений при обмене РИБ: Ошибка при вызове метода контекста (ПрочитатьИзменения): Ошибка записи!
Доброго всем времени суток! подскажи пожалуйста как исправить ошибку: Ошибка при чтении изменений при обмене РИБ: Ошибка при вызове...

Ошибка при добавлении в файл. Ошибка 101: Ошибка записи на диск (Error 101: Disk write error).
Здравствуйте, возникла проблема такого плана. Нужно произвести добавление записи в файл, но после успешного создания и чтения вылазиет...

11
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
07.12.2013, 17:07
Цитата Сообщение от HerrHebels Посмотреть сообщение
&& (Edit5->Text<"500") && (Edit2->Text>="<0") &&
(Edit3->Text>="0")
Если ты сравниваешь число, так надо сравнивать число с числом, а не число с текстом
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33402 / 21512 / 8236
Регистрация: 22.10.2011
Сообщений: 36,912
Записей в блоге: 12
07.12.2013, 17:12
Цитата Сообщение от HerrHebels Посмотреть сообщение
Что делать?
Точку с запятой в 10-ой строке убрать, для начала...
0
0 / 0 / 3
Регистрация: 26.10.2013
Сообщений: 133
07.12.2013, 17:27  [ТС]
Цитата Сообщение от Sasha Посмотреть сообщение
Если ты сравниваешь число, так надо сравнивать число с числом, а не число с текстом
В Edit по умолчанию будут вводиться числа. Или Вы что-то другое имеете в виду?
0
place status here
 Аватар для gunslinger
3190 / 2227 / 640
Регистрация: 20.07.2013
Сообщений: 6,023
07.12.2013, 17:39
Значение Edit->Text имеет тип (Ansi)String. И не важно, число там или текст.
0
0 / 0 / 3
Регистрация: 26.10.2013
Сообщений: 133
07.12.2013, 17:41  [ТС]
Цитата Сообщение от gunslier Посмотреть сообщение
Значение Edit->Text имеет тип (Ansi)String. И не важно, число там или текст.
А как тогда сделать?
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
07.12.2013, 17:46
Цитата Сообщение от gunslier Посмотреть сообщение
Значение Edit->Text имеет тип (Ansi)String. И не важно, число там или текст.
Вообщето по правилам насколько я знаю, необходимо преобразовывать типы для сравнения
0
place status here
 Аватар для gunslinger
3190 / 2227 / 640
Регистрация: 20.07.2013
Сообщений: 6,023
07.12.2013, 17:52
Я про то и говорю. Применить StrToInt (или аналоги) на Edit->Text и сравнивать с числом / числами.
1
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
07.12.2013, 17:53
Цитата Сообщение от gunslier Посмотреть сообщение
Я про то и говорю. Применить StrToInt (или аналоги) на Edit->Text и сравнивать с числом / числами.
целиком и полностью согласен
0
0 / 0 / 3
Регистрация: 26.10.2013
Сообщений: 133
07.12.2013, 18:15  [ТС]
Может какой-то добрый человек покажет на примере как это сделать?
0
 Аватар для Lelik-pahan
1709 / 905 / 207
Регистрация: 25.11.2009
Сообщений: 1,850
08.12.2013, 13:11
C++
1
2
3
4
5
6
7
8
if (StrToInt(Edit1->Text) >= 10)
    ...;
if (StrToFloat(Edit1->Text) < 123.456)
    ...;
if (Edit1->Text.ToInt() == 741)
    ...;
if (Edit1->Text.ToDouble() > 1515.515151)
    ...;
1
 Аватар для BRcr
4043 / 2333 / 292
Регистрация: 03.02.2011
Сообщений: 5,066
Записей в блоге: 10
08.12.2013, 15:53
Цитата Сообщение от UI Посмотреть сообщение
Точку с запятой в 10-ой строке убрать, для начала...
HerrHebels, это ты и дальше собираешься игнорировать? Ошибка "E2054 Misplaced else" растет именно отсюда. Некорректное сравнение строк и чисел - это уже второй разговор.

Если исходить из первого поста, делается как-то так:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    if ( ( ComboBox1->Items->Strings[ComboBox1->ItemIndex] == "blabla" ) && ( Edit2->Text.ToInt( ) >= 0 ) && ( Edit3->Text.ToInt( ) >= 0 ) )
    {
        if ( Edit5->Text.ToInt( ) < 500 )
        {
            MessageBox(0,"blabla","if worked",MB_OK);
        } 
        else if ( Edit5->Text.ToInt( ) >= 500 ) 
        {
            MessageBox(0, "blabla","first else if worked",MB_OK);
        }
        else if ( Edit5->Text.ToInt( ) >= 0 )
        {
            MessageBox(0, "blabla", "second else if worked",MB_OK); 
        }
    }
}
Отсутствие во всем этом строгой логики - это уж совсем отдельный разговор.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.12.2013, 15:53
Помогаю со студенческими работами здесь

Ошибка разбора XML/ Ошибка при вызове метода контекста (Прочитать)
1C 8.2 Документооборот КОРП 1.2 Текст ошибки {ОбщийМодуль.АвтозаполнениеШаблоновФайловКлиентСервер.Модуль(616)}: Ошибка при вызове...

ASP: Response.Redirect - не работает, ошибка `500 - Внутренняя ошибка сервера'
Всем привет! Есть в ASP-сраничке такой код: Response.Redirect 'page1.asp?ReturnTo=page2.asp' Эта конструкция работала на IIS 4,...

Django Ошибка доступа (403) Ошибка проверки CSRF. Запрос отклонён
На хостинге разместил сайт и не могу войти в админку, т.к. возникает 403 ошибка &quot;Ошибка доступа (403). Ошибка проверки CSRF. Запрос...

Загружается до окна приветствия и вылетает ошибка: isass.exe - Системная ошибка
Ребята, помогите кто может... весь день бьюсь безрезультатно... с утра пришёл на работу а сервак не пингуется... загружается до...

Ошибка SQL запроса , в базе работает, а через IBQuery в Delphi ошибка
В Combobox загружены имена организаций. Нужно выполнить запрос на вывод всех полей таблицы организаций при выборе имени в Combobox. При...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 30.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru