VPF::Не появляется сообщение - Форум программистов

DCamer

Дата 23.3.2010, 00:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Код


void __fastcall TSDIAppForm::Button1Click(TObject *Sender)
{
       float s1;
       float s2;
       float s3;

       // введены ли данные в поля s1 и s2
       if (((Edit1->Text).Length() == 0) ||
                      ((Edit2->Text).Length() == 0))
       {                                                                                                            
          MessageDlg("Надо ввести s1 и s2",                                         
                  mtInformation, TMsgDlgButtons() << mbOK, 0);
               if ((Edit1->Text).Length() == 0)                                    
                  Edit1->SetFocus(); // курсор в поле s1             
               else                                                                              
                  Edit2->SetFocus(); // курсор в поле s2            
               return;                                                                          
                                                                                                                            
       };                                                                                                          

       // ввод исходных данных
       s1 = StrToFloat(Edit1->Text);
       s2 = StrToFloat(Edit2->Text);

       // вычисление
       s3 = s1 * s2;

       // ввод исходных данных
        Label4->Caption = FloatToStrF(s1,ffGeneral,7,2) +
                     "$ ="+FloatToStrF(s3,ffGeneral,7,2) + " денег.";
}

Вот в этом коде не работает сообщение "Надо ввести s1 и s2" в случаем если поля Edit1 и Edit2 пусты, при этом пишет "First chance exception at $7C812AFB. Exception class EConvertError with message ''Edit1' is not a valid floating point value'. Process kurs.exe (2792)"

Это сообщение отредактировал(а) DCamer - 23.3.2010, 01:10

--------------------

Нуб! Windows 7 Ultimate x64, Embarcadero RAD Studio 2010 - C++Builder 2010

Данкинг

Дата 23.3.2010, 02:09 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

У меня твой код работает. Может, у тебя в Edit'ах пробелы? Сделай на всякий случай Trim:

Код


if (((Trim(Edit1->Text)).Length() == 0) ||
                      ((Trim(Edit2->Text)).Length() == 0))

--------------------

There's nothing left but silent epitaphs.

DCamer

Дата 23.3.2010, 02:49 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Данкинг, название Edit'ов из Text забыл убрать smile

--------------------

Нуб! Windows 7 Ultimate x64, Embarcadero RAD Studio 2010 - C++Builder 2010

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »