Выдача ошибки при вводе 2 нулей в Edit1..edit5

  • Автор темы prikolist
  • Дата начала
P

prikolist

Гость
#1
Здравствуйте! Подскажите пожалуйста,как, используя функцию,повторять вот это выражение, начиная с Edit1..Edit5.,чтоб не записывать много текста.

Код:
if(Edit1->Text.Length()>1)
if(Edit1->Text[1] == '0' && Edit1->Text[2]!=DecimalSeparator)
{
ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
return;
Тоесть,чтоб не вводить тоже самое 5 раз в Edit1,Edit2,Edit3,Edit4,Edit5.
Заранне благодарен за ответ.