🚀 go-pugleaf

What DBMS you are using? Could you reproduce this with standard MS SQL
Server database (pubs, northwind) or with MS Access database (small)?

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"Walter" <w@w.w> �������/�������� � �������� ���������:
news:4028ef04@newsgroups.borland.com...
> Here is my stripped down code that replicates the error
>
> header file
> =======
>
>
file://---------------------------------------------------------------------
> ------
>
> #ifndef PlotH
> #define PlotH
>
file://---------------------------------------------------------------------
> ------
>
> #include <Classes.hpp>
> #include <Controls.hpp>
> #include <StdCtrls.hpp>
> #include <Forms.hpp>
> #include <Chart.hpp>
> #include <ExtCtrls.hpp>
> #include <Series.hpp>
> #include <TeEngine.hpp>
> #include <TeeProcs.hpp>
> #include <ComCtrls.hpp>
> #include "test.h"
> #include <ADODB.hpp>
> #include <DB.hpp>
>
//--------------------------------------------------------------------------
> -
> class TPlotForm : public TForm
> {
> __published: // IDE-managed Components
>   TButton *calcButton;
>   TChart *Chart1;
>   TLineSeries *Series1;
>   TADOConnection *ADOConnection1;
>   TADODataSet *DataSet;
>   void __fastcall calcButtonClick(TObject *Sender);
>
> private: // User declarations
>   double PriceBond(AnsiString BondName,bool useNewrfr, double newRfr);
> public:  // User declarations
>   __fastcall TPlotForm(TComponent* Owner);
> };
>
//--------------------------------------------------------------------------
> -
> extern PACKAGE TPlotForm *PlotForm;
>
//--------------------------------------------------------------------------
> -
> #endif
>
> cpp file
> =====
> #include <vcl.h>
> #pragma hdrstop
>
> #include "Plot.h"
>
//--------------------------------------------------------------------------
> -
> #pragma package(smart_init)
> #pragma resource "*.dfm"
> TPlotForm *PlotForm;
>
//--------------------------------------------------------------------------
> -
> __fastcall TPlotForm::TPlotForm(TComponent* Owner)
>   : TForm(Owner)
> {
> }
>
//--------------------------------------------------------------------------
> -
> void __fastcall TPlotForm::calcButtonClick(TObject *Sender)
> {
>
>   double startVal, endVal, Steps;
>   startVal = 0.50;
>   endVal = 0.51;
>   Steps = 0.01;
>   double xVal[5];
>   double yVal[5];
>   int counter = 1;
>   xVal[0] = startVal;
>   while ( xVal[counter-1] < endVal )
>     {
>       xVal[counter] = xVal[counter-1]+Steps;
>       counter++;
>     }
>   AnsiString bondName = "TestBond";
>   double tempValue = 0;
>   double temp;
>   for (int i = 0; i < counter; i++)
>     {
>       yVal[i] = PriceBond(bondName,true, xVal[i]);
>     }
>   Chart1->Series[0]->Clear();
>   for (int i = 0; i<counter; i++){
>     Chart1->Series[0]->AddXY(xVal[i],yVal[i]);}
>  }//error occurs here
>
//--------------------------------------------------------------------------
> -
> double TPlotForm::PriceBond(AnsiString BondName, bool useNewrfr, double
> newRfr)
> {
>   ADOConnection1->Connected = false;
>   ADOConnection1->Connected = true;
>   DataSet->CommandText = "select * from bond where ID=\""+BondName+"\"";
>   DataSet->Open();
>   double nominal = DataSet->FieldByName("Nominal")->AsString.ToDouble();
>   file://if this is true, error occurs
>   bool useYieldCurve= DataSet->FieldByName("UseYieldCurve")->AsBoolean;
>   double riskFreeRate;
>   if (!useYieldCurve)
>     riskFreeRate = DataSet->FieldByName("RiskFreeRate")->AsFloat;
>   DataSet->Close();
>   double rfr;
>     if (useNewrfr)
>       rfr = newRfr;
>     else
>       rfr = riskFreeRate;
>   double Value;
>   if (!useYieldCurve)
>     Value = rfr*nominal;
>   else Value = nominal*2;
>   ADOConnection1->Connected = false;
>   return Value;
> }
>
>