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

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();