float TFastIniSection::ReadFloat(AnsiString Key, float Default) { int index = SearchKey(Key); if (index >= 0){ return StrToFloatDef(Values(index), Default); }else{ return Default; } }
void __fastcall TGridToChartDemo::StringGrid1SetEditText(TObject *Sender, int ACol, int ARow, const AnsiString Value) { if (Showing && Chart1->Series[StringGrid1->ColCount-ACol-1] != NULL) { TChartSeries *Series = Chart1->Series[StringGrid1->ColCount-ACol-1]; Series->MandatoryValueList->Value[ARow-1] = StrToFloatDef(StringGrid1->Cells[ACol][ARow],0); Series->Repaint(); } }
void __fastcall TfrmPropVisor::DownClickDbl(TObject *Sender) { const long double inc = 0.01; long double value; try{ value = StrToFloatDef(((TEdit*)((TCSpinButton*)Sender)->FocusControl)->Text, 1); }catch(...){ return;} if( (value - inc) > 0.0 ) value -= inc; else value = 1; ((TEdit*)((TCSpinButton*)Sender)->FocusControl)->Text = FloatToStr(value); }
//--------------------------------------------------------------------------- double StrToFloat(const UnicodeString & Value) { return StrToFloatDef(Value, 0.0); }
void __fastcall TfrmPropVisor::edtPasoGridYChange(TObject *Sender) { if( StrToFloatDef(edtPasoGridY->Text,1) > 0) dsgPrevia->GridStepY = StrToFloatDef(edtPasoGridY->Text,1); }
void __fastcall TfrmPropVisor::edtMarksLongYChange(TObject *Sender) { dsgPrevia->MarksLengthAxeY = StrToFloatDef(edtMarksLongY->Text,1); }
void __fastcall TfrmPropVisor::edtMarksStepYChange(TObject *Sender) { if( StrToFloatDef(edtMarksStepY->Text,1) > 0) dsgPrevia->MarksStepY = StrToFloatDef(edtMarksStepY->Text,1); }
void __fastcall TfrmPropVisor::edtLabelStepXChange(TObject *Sender) { if( StrToFloatDef(edtLabelStepX->Text, 1) > 0 ) dsgPrevia->LabelsStepX = StrToFloatDef(edtLabelStepX->Text, 1); }
float TIniFile::ReadFloat(const wxString &Section, const wxString &Ident, float Default) { return StrToFloatDef(ReadString(Section, Ident, FloatToStr(Default)), Default); }