Type Variant examples - C++ Builder

 

void __fastcall TForm1::FormCreate(TObject *Sender)

{

 Variant x;

 TVarData(x).VDate=Now();

 x=TVarData(x).VDate;

 Label1->Caption=VarToStr(x);

 int i,j;

 Variant integer_Tab(OPENARRAY(int,(1,10,1,10)),varInteger);

 Variant double_Tab(OPENARRAY(int,(1,10,1,10)),varDouble);

 Variant currency_Tab(OPENARRAY(int,(1,10,1,10)),varCurrency);

 Variant date_Tab(OPENARRAY(int,(1,10,1,10)),varDate);

 double k=0.01;

 for(i=0;i<10;i++)

 {

for(j=0;j<10;j++)

{

integer_Tab.PutElement((i+1)*(j+1),i+1,j+1);

double_Tab.PutElement(k*(i+1*1.00)*(j+1*1.00),i+1,j+1);

currency_Tab.PutElement(k*(i+1*1.00)+(j+1*1.00),i+1,j+1);

         date_Tab.PutElement(x,i+1,j+1);

}

 }

 for(i=0;i<10;i++)

 {

for(j=0;j<10;j++)

{

StringGrid1->Cells[i][j]=integer_Tab.GetElement(i+1,j+1);

StringGrid2->Cells[i][j]=double_Tab.GetElement(i+1,j+1);

StringGrid3->Cells[i][j]=currency_Tab.GetElement(i+1,j+1);

         StringGrid4->Cells[i][j]=date_Tab.GetElement(i+1,j+1);

}

 }

}