Реферат: Выработка рекомендаций по защите оператора ЭВМ от воздействия СДЯВ

void __fastcall TForm1::Edit1Change(TObject *Sender)

{

char c[4];

strcpy(c,Edit1->Text.c_str());

int i=0;

Возможно вы искали - Реферат: Основы охраны жизнедеятельности

while (c[i]!=0){

if ((c[i]>'9')||(c[i]<'0'))

strcpy(c+i,c+i+1);

else

i++;

Похожий материал - Реферат: Оздоровление воздушной среды и нормализация параметров микроклимата

}

Edit1->Text=c;

if (Edit1->Text != "")

setZone();

}

Очень интересно - Шпаргалка: Теория безопасности жизнедеятельности

void __fastcall TForm1::Edit2Change(TObject *Sender)

{

char c[4];

strcpy(c,Edit2->Text.c_str());

int i=0;

Вам будет интересно - Реферат: Электробезопасность

while (c[i]!=0){

if ((c[i]>'9')||(c[i]<'0'))

strcpy(c+i,c+i+1);

else

i++;

Похожий материал - Реферат: Безопасность жизнедеятельности на ЖД транспорте

}

Edit2->Text=c;

if (Edit2->Text != "")

setZone();