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

[prikolist]

Здравствуйте! Подскажите пожалуйста,как, используя функцию,повторять вот это выражение, начиная с 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.
Заранне благодарен за ответ.

[Sazary]

Ну вот такой способ есть. Проверяет для всех Эдитов на форме.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TEdit *edit;
for(int i=0;i<ComponentCount;i++)
if(edit=dynamic_cast<TEdit*>(Components[i]))
if(edit->Text.Length()>1)
 if(edit->Text[1] == '0' && edit->Text[2]!=DecimalSeparator)
 {
 ShowMessage("Ошибка! Вы не поставили запятую после 1-го нуля");
 edit->SetFocus();
 return;
 }
}

[prikolist]

Спасибо большое. Расшифруйте пожалуйста,очень буду благодарен это:

TEdit *edit;
for(int i=0;i<ComponentCount;i++)
if(edit=dynamic_cast<TEdit*>(Components[i]))

[Sazary]

TEdit *edit;  //edit - указатель на TEdit

for(int i=0;i<ComponentCount;i++)

перебираем все компоненты на форме.
ComponentCount - общее количество компонентов

if(edit=dynamic_cast<TEdit*>(Components[i]))

пытаемся преобразовать текущий компонент (Components[i]) в TEdit.
Если это удалось, то это действительно TEdit и можно продолжать с ним работать
иначе преобразование закончится неудачей

[prikolist]

Спасибо. Скажите, существуют ли какие-то функции,это я на будущее спрашиваю,чтоб например перебирать только определённые компоненты.
Например,как вы используете ComponentCount - перебор всех элементов на формее,а я,например хочу перебрать только Memo.
Ещё,подскажите пож.что делает эта константа dynamic_cast.
Зараннее благодарю.

[Sazary]

dynamic_cast пытается выполнить приведение к указанному типу.
http://ru.wikipedia.org/wiki/Динамич...ия_типа_данных

Например,как вы используете ComponentCount - перебор всех элементов на формее,а я,например хочу перебрать только Memo.

Насколько я знаю, вроде, нельзя. Надо перебирать все компоненты и отлавливать нужные.