Если введён первый нуль в Edit,и не стоит запятая после него, выдать ошибку

[prikolist]

Здравствуйте программисты! Подскажите пожалуйста, как Если введён первый нуль в Edit1,и не стоит запятая после него, выдать ошибку.Также, если стоит вначале больше одного нуля, выдать ошибку.
Это мне нужно на проверку вводимости лишних нулей, чтоб решить примерчик, например а+b результат в метку.
Остальные исключения я сделал, только в этом загвоздка.
Я вот попробывал так, но что-то не выходит:

if(Key == VK_NUMPAD0 && (Edit1->Text).Length(2)!=DecimalSeparator)
{
ShowMessage("Ошибка, в одном из полей, \n после первого нуля не стоит знака запятая!!");
}

[Sazary]

Так, например:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Edit1->Text.Length()<3 || (Edit1->Text[1]!='0' || Edit1->Text[2]!=DecimalSeparator))
 ShowMessage("Error!");
}

[prikolist]

Когда я вставляю ваш код, у меня пропадают остальные исключения.
Я вложил весь проект, архивом, посмотрите пожалуйста, не сложный, куда именно нужно поместить туда ваш код. Также, ещё проблемма, У меня там находится 4 поля Edit1..Edit4. Когда я ввожу во все поля по одному нулю, не вылазит моё исключение "Деление на ноль", а вылазит на англ.язые. Заранне благодаре. Проект написан на С++ Билдер. Заранне благодарен ВАМ за ответ.

Модератор: аттачи запрещены

[Sazary]

А, так..
Ну тогда по-другому это будет выглядеть:

if(Edit1->Text[1]=='0' && Edit1->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Error!");
 return;
 }

Так для каждого эдита. Вставить после проверок на пустоту полей.

Проект у меня почему-то не компилится (ошибки). Но вроде понял, почему выдает ошибку.

Она возникает, если поля b и c одновременно равны 0.
При этом в выражении:

otvet = c + 4*d - sqrt(123 * c)/b - a/2;

возникает неопределенность 0/0. Насколько я знаю, это не считается делением на ноль. Поэтому нужно отдельно проверять этот случай.

[prikolist]

Я вставил такой код, в блок try ... catch. И теперь, при вводе, нулей, во все строки Edit, выдаёт другую ошибку: float operation но деление на ноль, не выдаёт. Подскажите пожалуйста, какое исключение можно прописать в блоке, или может как-то ифом попробывать? Зараннее благодарен за ответ. Если вставить код который ниже, перед блоком try..cath. выдаст Acces operation

Вот код, я добавил:

// Проверка на ввод запятой, после ввода первого нуля.
//Если в одном из полей Edit1..Edit4 введено больше 1 нуля и
// не стоит запятая после первого нуля, программа выдаёт ошибку.

if(Edit1->Text[1]=='0' && Edit1->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
 return;
 }


if(Edit2->Text[1]=='0' && Edit2->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
 return;
 }

if(Edit3->Text[1]=='0' && Edit3->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
 return;
 }


if(Edit4->Text[1]=='0' && Edit4->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
 return;
 }

//-----------------------------------------------------------

Посмотрите проект, пожалуйста, он с добавленным кодом.

//Модератор: аттачи запрещены

[Sazary]

И теперь, при вводе, нулей, во все строки Edit, выдаёт другую ошибку:

Да, да.. Забыл совсем )

if(Edit1->Text.Length()>1)
 {
  if(Edit1->Text[1]=='0' && Edit1->Text[2]!=DecimalSeparator)
   {
    ShowMessage("Поставьте запятую!");
    return;
   }
 }

Только ставить это надо ДО преобразования в число.
То есть сразу после проверки на пустоту:

[prikolist]

Выдаёт: Invalid Floating point Operation

//Выводим результат в Label1  проверив на исключения
try
{
//Присваиваем переменным а,b,c,d введённые значения. в Edit1..Edit4
//Преобразуем с текстового типа символы в вещественый тип Float
a = StrToFloat(Edit1->Text);
b = StrToFloat(Edit2->Text);
c = StrToFloat(Edit3->Text);
d = StrToFloat(Edit4->Text);


//Результат вычислений присваиваем переменной "otvet"
otvet = c + 4*d - sqrt(123 * c)/b - a/2;

//-----------------------------------------------------------

// Проверка на ввод запятой, после ввода первого нуля.
//Если в одном из полей Edit1..Edit4 введено больше 1 нуля и
// не стоит запятая после первого нуля, программа выдаёт ошибку.
if(Edit1->Text.Length()>1)
if(Edit1->Text[1]=='0' && Edit1->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
 return;
 }

if(Edit2->Text.Length()>1)
if(Edit2->Text[1]=='0' && Edit1->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
 return;
 }
if(Edit3->Text.Length()>1)
if(Edit3->Text[1]=='0' && Edit1->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
 return;
 }

if(Edit4->Text.Length()>1)
if(Edit4->Text[1]=='0' && Edit1->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
 return;
 }

//-----------------------------------------------------------




//Результат пполучаем в метке Label 1
Label1->Caption = "Результат=" + FloatToStrF(otvet,ffGeneral,7,2);
}
catch(EZeroDivide&)
{
MessageBox(0,"Ошибка! Деление на ноль!!!","Ошибка",MB_ICONERROR);
}
catch(EConvertError&)
{
MessageBox(0,"Ошибка! Неправильно введено число в одном из \n полей. Возможно в полях присутствуют неправильные \n знаки вроде: w,п,!,%,$,. и т.д.","Ошибка",MB_ICONERROR);
}
catch(EOverflow&)
{
ShowMessage("Выход числа за допустимый диапазон");
}
}
//---------------------------------------------------------------------------

[Sazary]

Выдаёт: Invalid Floating point Operation

Я уже третий раз вам говорю: это надо ставить ДО преобразования. То есть до этого:

a = StrToFloat(Edit1->Text);
b = StrToFloat(Edit2->Text);
c = StrToFloat(Edit3->Text);
d = StrToFloat(Edit4->Text);

И говорите конкретнее, что вы вводите.

[prikolist]

Всё, большое спасибо, наконец-то, просто не знал, что нужно вставлять этот код в блоке try..catch Перед преобразование в вещественное число.

[prikolist]

Когда я ввожу по одному нулю в каждое поле с Edit1..Edit4. выдаёт Invalid floating poin overflaw, когда ввожу нули во все поля. Не скажите как убрать это англ исключение.