//---------------------------------------------------------------------------
void __fastcall TFNoSenseRestProp::BtOkClick(TObject *Sender)
{
TEdit *Ex;
try
{
Ex = EA;
A = StrToFloat(EA->Text);
Ex = EB;
B = StrToFloat(EB->Text);
Ex = EA;
K = StrToFloat(EK->Text);
Ex = EdX;
dX = StrToFloat(EdX->Text);
Ex = EdY;
dY = StrToFloat(EdY->Text);
}
catch(...)
{
Application->MessageBoxA("Неверный формат числа", "Floating Poitn Error",
MB_OK | MB_ICONERROR);
Ex->SetFocus();
return;
}
ResultOk = true;
Close();
}
//---------------------------------------------------------------------------
bool TMillersForm::CalcIndex(void)
{
bool bRet = true;
AnsiString S;
TEdit *pIndexEdit;
try
{
if(DirectIndexHEdit->Text != ""
&& DirectIndexHEdit->Text != ""
&& DirectIndexHEdit->Text != "")
{
pIndexEdit = DirectIndexHEdit;
MI.h = pIndexEdit->Text.ToDouble();
pIndexEdit = DirectIndexKEdit;
MI.k = pIndexEdit->Text.ToDouble();
pIndexEdit = DirectIndexLEdit;
MI.l = pIndexEdit->Text.ToDouble();
TMillersIndexes PerpMI;
PerpMI = MI.Perpend();
PerpIndexHEdit->Text = AnsiString().sprintf("%.2f",PerpMI.h);
PerpIndexKEdit->Text = AnsiString().sprintf("%.2f",PerpMI.k);
PerpIndexLEdit->Text = AnsiString().sprintf("%.2f",PerpMI.l);
if(AngleIndexHEdit->Text != ""
&& AngleIndexKEdit->Text != ""
&& AngleIndexLEdit->Text != "")
{
TMillersIndexes AngelMI;
pIndexEdit = AngleIndexHEdit;
AngelMI.h = pIndexEdit->Text.ToDouble();
pIndexEdit = AngleIndexKEdit;
AngelMI.k = pIndexEdit->Text.ToDouble();
pIndexEdit = AngleIndexLEdit;
AngelMI.l = pIndexEdit->Text.ToDouble();
double dAngle = MI.Angle(AngelMI);
AngleValueLabel->Caption = AnsiString().sprintf("%.2f",dAngle);//FloatToStrF(dAngle, AnsiString::sffGeneral, 5,2);
}
}
}
catch(EConvertError *EC)
{
bRet = false;
if(m_bShowExeption == true)
{
S = pIndexEdit->Text;
AnsiString Text = "¬ведено неправильное чиcловое значение '" + S + "'";
Application->MessageBox(_WST(Text),_WST("ќшибка"),MB_OK | MB_ICONEXCLAMATION);
if(pIndexEdit->CanFocus())
pIndexEdit->SetFocus();
}
}
return bRet;
}
