}
//---------------------------------------------------------------------------
fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{(Key)
{'0':case '1':case '2':'3':case '4':case '5':'6':case '7':case '8':'9':case 8:break;',':
{=',';(Edit2->Text.Pos(Key) !=0) Key=0;
break;
}:Key=0;
}
}
ПРИЛОЖЕНИЕ В
Результаты работы программы
Рисунок 1 - Модель затвердевания стали
Самое читаемое:
Маршрутизация в мультисервисных сетях
Маршрутизация на сегодняшний день определяется не формальными
правилами и описаниями, характерными для сетей предыдущих поколений, а
требованиями клиента и экономическими соображениями оператора связи. Чтобы
оптимизировать работу сетей, разрабатываются различные методы маршрутизации,
обеспечивающие сбалансированную наг ...