Загрузить данные в структуру

#include <vcl.h>
#pragma hdrstop
 
#include "Main.h"
#include "Nastr.h"
#include "Kalend.h"
#define HASHSSIZE 101
#include "IniFiles.hpp"
#include <comobj.hpp>
#include <stdlib.h>
#include <ctype.h>
#include <System.hpp>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFMain *FMain;
 
//---------------------------------------------------------------------------
__fastcall TFMain::TFMain(TComponent* Owner)
        : TForm(Owner)
{
FMain->Position=poDesktopCenter;
}
//---------------------------------------------------------------------------
 
void __fastcall TFMain::N6Click(TObject *Sender)
{
   Application->CreateForm(__classid(TFNastr),&FNastr);
}
//---------------------------------------------------------------------------
void __fastcall TFMain::FormClose(TObject *Sender, TCloseAction &Action)
{
   Application->Terminate();        
}
//---------------------------------------------------------------------------
void __fastcall TFMain::N7Click(TObject *Sender) //Îñíîâíàÿ ïðîãðàììà
{
    TIniFile *ini;
    ini = new TIniFile("date.ini");
    AnsiString FileN,t;
    FileN = ini->ReadString("excel","FileName","0");
    Excel = CreateOleObject("Excel.Application");
     //ñîåäèíÿåìñÿ ñ ôàéëîì
    Book = Excel.OlePropertyGet("Workbooks").OlePropertyGet("Open",FileN.c_str());
    Application->CreateForm(__classid(TFKalend),&FKalend);
    ShapTabl();
    DanTabl();
    //this->StringGrid1->Cells[0][0]=Sheet.OlePropertyGet ("Cells",1,1);
 
   // t=Sheet.OlePropertyGet("Cells",1,3);
    ShowMessage(t);
    Excel.OleProcedure("Quit");
 
    delete ini;
}
//---------------------------------------------------------------------------
 
void __fastcall TFMain::N2Click(TObject *Sender)
{
//Messa->Show();
if (MessageDlg("Âû äåéñòâèòåëüíî õîòèòå âûéòè?", mtWarning, TMsgDlgButtons() << mbYes << mbNo , 0) == mrYes )
{
     Application->Terminate();
}
}
 
void TFMain::ShapTabl()  //Øàïêà òàáëèöû
{
Sheet = Book.OlePropertyGet("Worksheets",5);
for(int i=0;i<100;i++){
     FKalend->StringGrid1->Cells[0][i+0]=Sheet.OlePropertyGet ("Cells",i+1,1);
     FKalend->StringGrid1->Cells[1][i+0]=Sheet.OlePropertyGet ("Cells",i+1,2);
     FKalend->StringGrid1->Cells[2+i][0]=Sheet.OlePropertyGet ("Cells",1,7);
 
}
}
 
void TFMain::DanTabl()  //Äàííûå òàáëèöû
{
Sheet = Book.OlePropertyGet("Worksheets",5);
for(int i=0;i<50;i++){
     //this->StringGrid1->Cells[i+2][1]=Sheet.OlePropertyGet ("Cells",i+2,1);
     //this->StringGrid1->Cells[i+2][1]=Sheet.OlePropertyGet ("Cells",3,1);
     //this->StringGrid1->Cells[1][1]=Sheet.OlePropertyGet ("Cells",2,2);
     //this->StringGrid1->Cells[1][1]=Sheet.OlePropertyGet ("Cells",3,2);
}
}
 
/*void TFMain::Danp()
{
Sheet = Book.OlePropertyGet("Worksheets",1);
int Max,MaxI,Maxj; int j=1;
Max=StrToFloat(this->StringGrid1->Cells[0][0]);
 
for
(StringGrid1->Cells[2][1];
 
StringGrid1->Cells[1][6];
if StrToFloat(StringGrid1->ColCount)>Max
{ Max=StrToFloat(tringGrid1->ColCount);
  MaxI:=i;
  Maxj:=j;
}
 StringGrid1->Cells[0][0]=Max;
}   */
 
struct nlist{
struct nlist *next;
char  *NamePan; //Çàãîëîâîê
int *defn;//dl,ob,shp,lh,kol;
};
 
static struct nlist *hashtab[HASHSSIZE];
 
 unsigned hash(char *s)
 {
 unsigned hashval;
 
 for (hashval=0; *s!='\0'; s++)
 hashval=*s+31*hashval;
 return hashval % HASHSSIZE;
 }
 
struct nlist *lookup(char *s)
 {
 struct nlist *np;
 for (np=hashtab[hash (s)]; np!=NULL; np=np->next)
    if(strcmp(s, np->NamePan)==0)
    return np;
    return NULL;
 }
 
//struct nlist *lookup(char *);
//char strdup(char *);
 
 struct nlist *install(char *name,charn*defn)   //IznDann *IznDann(char *NamePan,int *dl,int *ob,int *shp,int *lh,int *kol)
{
    // AnsiString  NamePan; //Çàãîëîâîê
    // int dl,ob,shp,lh,kol;  //Çíà÷åíèå â ÿé÷åéêàõ
    struct nlist *np;
    unsigned hashval;
 
    if ((np=lookup(name))==NULL)
    np=(struct nlist*) malloc(sizeof(*np));
    if (np==NULL||(np->name=strdup(name))==NULL)
    return NULL;
    hashval=hash[name];
    np->next=hashtab[hashval];
}else
free((void*)np->defn);
if ((np->defn=strdup(defn))==NULL)
retutn NULL;
return np;
}
 
// struct IznDann *next; //Ñëåäóþùàÿ çàïèñü â öåïî÷êå

Book = Excel.OlePropertyGet("Workbooks").OlePropertyGet("Open",FileN.c_str());

Book = Excel.OlePropertyGet("Workbooks").OleProcedure("Open",FileN.c_str());