//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "dbcedit.h"
#include "stdio.h"
#include "IdGlobal.hpp"
#include <inifiles.hpp>
#include "TitleFrm.h"
#include <dir.h>
#include "thOpenSource.h"
#include "SearchFrm.h"
//#include "SysUtils.hpp"


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmMain *FrmMain;
//---------------------------------------------------------------------------
__fastcall TFrmMain::TFrmMain(TComponent* Owner)
        : TForm(Owner)
{
    OpenOk=false;
    Term=false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::btOpenClick(TObject *Sender)
{
    if(OpenDialog1->Execute()){
         if (FileExists(OpenDialog1->FileName)){
             OpenOk=false;
             if(thOpen){
                 thOpen->Terminate();
             }
             thOpen = new thOpenFile(false);
             //thOpen->Priority = tpTimeCritical;
             pnFileName->Caption = OpenDialog1->FileName;
         }else{
             OpenOk=false;
             pnFileName->Caption = "";
         }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmMain::btSaveClick(TObject *Sender)
{
    //CurrentOpenFile;
    if(OpenOk){
        SaveToFile(CurrentOpenFile.c_str());
    }else{
        ShowMessage("文件未打开完成！");
    }
}
//---------------------------------------------------------------------------

void TFrmMain::SaveToFile(const char * pszFileName)
{
     char szFileName[255];
     FILE *stream;

     


      fnsplit(pszFileName, 0, 0, szFileName, 0);
      strcat(szFileName, "_new.dbc");


        AnsiString NewFileName=ExtractFilePath(Application->ExeName)+szFileName;//=pszFileName;
        int iFileHandle; //文件句柄
        AnsiString  iniSetFile=ExtractFilePath(Application->ExeName)+"BcdEditer.ini";
        AnsiString SectionName=ExtractFileName(CurrentOpenFile);

        DWORD w;

        CopyFileTo(pszFileName,NewFileName);

       iFileHandle = FileOpen(NewFileName, fmOpenRead|fmOpenWrite);//打开文件

     if ((stream = fopen(CurrentOpenFile.c_str(), "r+"))
       == NULL)
     {
      ShowMessage("打开文件出错");
      return;
     }


        int iVal;
        float fVal;
        bool isFloat;
        int ColType;

        FileSeek(iFileHandle,0x14,0);
        TIniFile *ini;
        ini = new TIniFile( iniSetFile );

	for(int i=1; i<sgEdit->RowCount; i++)
	{
            for(int j=1; j<sgEdit->ColCount; j++)
	    {
               if(j==1){ //ID
                       iVal=StrToInt(sgEdit->Cells[j][i]);
                       FileWrite(iFileHandle, &iVal, 4);
               }else{

                       //ColType= ini->ReadInteger(SectionName,"ColType"+IntToStr(j-1),0);
                       //thOpen->ColType[10000];

                       switch (thOpen->ColType[j])
                       {
                          case 0: //整型
                            iVal=StrToFloat(sgEdit->Cells[j][i]);
                            FileWrite(iFileHandle, &iVal, 4);
                          break;
                          case 1: //浮点
                            fVal=StrToFloat(sgEdit->Cells[j][i]);
                            FileWrite(iFileHandle, &fVal, 4);
                          break;
                          case 2: //文本
                                fseek(stream, 0x14+(i*(sgEdit->ColCount-1)+(j-1))*4, 0);
                                fread(&iVal, 4, 1, stream);
                                FileWrite(iFileHandle, &iVal, 4);
                          break;
                          default: //整型
                            iVal=StrToFloat(sgEdit->Cells[j][i]);
                            FileWrite(iFileHandle, &iVal, 4);
                       }
               }
            }
        }
        FileClose(iFileHandle);
        fclose(stream);
        
        delete ini;
        ShowMessage("Save To File:"+NewFileName);
}
void __fastcall TFrmMain::btIntTypeClick(TObject *Sender)
{
if(OpenOk==true){
   AnsiString  iniSetFile=ExtractFilePath(Application->ExeName)+"BcdEditer.ini";
   AnsiString SectionName=ExtractFileName(CurrentOpenFile);
   TIniFile *ini;
   ini = new TIniFile( iniSetFile );
   ini->WriteInteger(SectionName,"ColType"+IntToStr(sgEdit->Col),0);
   delete ini;
   thOpen->ColType[sgEdit->Col]=0;
   //重新打开对应列的值
   //OpenFileCol(AnsiString FileName,int ColType);
   OpenFileCol(CurrentOpenFile,sgEdit->Col,0);
}
}
//---------------------------------------------------------------------------


void __fastcall TFrmMain::btFloatTypeClick(TObject *Sender)
{
if(OpenOk==true){
   AnsiString  iniSetFile=ExtractFilePath(Application->ExeName)+"BcdEditer.ini";
   AnsiString SectionName=ExtractFileName(CurrentOpenFile);
   TIniFile *ini;
   ini = new TIniFile( iniSetFile );
   ini->WriteInteger(SectionName,"ColType"+IntToStr(sgEdit->Col),1);
   delete ini;
   thOpen->ColType[sgEdit->Col]=1;
   OpenFileCol(CurrentOpenFile,sgEdit->Col,1);
}
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::PopupMenu1Popup(TObject *Sender)
{
if(OpenOk==true){
   AnsiString  iniSetFile=ExtractFilePath(Application->ExeName)+"BcdEditer.ini";
   AnsiString SectionName=ExtractFileName(CurrentOpenFile);
   int ColType;
   TIniFile *ini;
   ini = new TIniFile( iniSetFile );
   ColType=ini->ReadInteger(SectionName,"ColType"+IntToStr(sgEdit->Col),0);
   delete ini;
   switch (ColType)
   {
     case 0:
       btIntType->Checked=true;
       btFloatType->Checked=false;
       btTxtType->Checked=false;
     break;
     case 1:
       btIntType->Checked=false;
       btFloatType->Checked=true;
       btTxtType->Checked=false;
     break;
     case 2:
       btIntType->Checked=false;
       btFloatType->Checked=false;
       btTxtType->Checked=true;
     break;
     default:
       btIntType->Checked=true;
       btFloatType->Checked=false;
   }
}
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::N1Click(TObject *Sender)
{
     AnsiString  iniSetFile=ExtractFilePath(Application->ExeName)+"BcdEditer.ini";
     AnsiString SectionName=ExtractFileName(CurrentOpenFile);
     int ColType;
     FrmTitle->edTitle->Text=sgEdit->Cells[sgEdit->Col][0];
     if(FrmTitle->ShowModal()==mrOk){
            TIniFile *ini;
            ini = new TIniFile( iniSetFile );
            ini->WriteString(SectionName,"ColTitle"+IntToStr(sgEdit->Col),FrmTitle->edTitle->Text);
            delete ini;
            sgEdit->Cells[sgEdit->Col][0]=FrmTitle->edTitle->Text;
     }
}
//---------------------------------------------------------------------------



void __fastcall TFrmMain::FormDestroy(TObject *Sender)
{
    if(thOpen){
        thOpen->Terminate();
        SleepEx(200,0);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::ToolButton1Click(TObject *Sender)
{
    bool SeFlag=true;
    if(FrmSearch->ShowModal()==mrOk){
            switch (FrmSearch->rgSI->ItemIndex)
           {
             case 0: //向上找;
                 for(int i=sgEdit->ColCount*sgEdit->Row+sgEdit->Col-1;i>sgEdit->ColCount;i--){
                     if(i%sgEdit->ColCount!=0){
                          if( 0==CompareStr(sgEdit->Cells[i-sgEdit->ColCount*(i/sgEdit->ColCount)][i/sgEdit->ColCount],
                                 FrmSearch->edSeach->Text)){ //找到了
                                 sgEdit->Col=i-sgEdit->ColCount*i/sgEdit->ColCount;
                                 sgEdit->Row=i/sgEdit->ColCount;
                                 SeFlag=false;
                                 break;
                          }
                     }
                 }
                 if(SeFlag)  ShowMessage("Seach Top，Find Nothing.");
             break;
             case 1:  //向下找;
                 for(int i=sgEdit->ColCount*sgEdit->Row+sgEdit->Col+1;i<sgEdit->ColCount*sgEdit->RowCount;i++){
                     if(i%sgEdit->ColCount!=0){
                          if( 0==CompareStr(sgEdit->Cells[i-sgEdit->ColCount*(i/sgEdit->ColCount)][i/sgEdit->ColCount],
                                 FrmSearch->edSeach->Text)){ //找到了
                                 sgEdit->Col=i-sgEdit->ColCount*(i/sgEdit->ColCount);
                                 sgEdit->Row=i/sgEdit->ColCount;
                                 SeFlag=false;
                                 break;
                          }
                     }
                 }
                 if(SeFlag)  ShowMessage("Seach End，Find Nothing");
             break;
             case 2: //当前列向上找;
                 for(int i=sgEdit->Row;i>1;i--){
                          if( 0==CompareStr(sgEdit->Cells[sgEdit->Col][i],
                                 FrmSearch->edSeach->Text)){ //找到了
                                 sgEdit->Row=i;
                                 SeFlag=false;
                                 break;
                          }
                 }
                 if(SeFlag)  ShowMessage("Seach col top，Find Nothing");
             break;
             case 3:  //当前列向下找;
                 for(int i=sgEdit->Row;i<sgEdit->RowCount;i++){
                          if( 0==CompareStr(sgEdit->Cells[sgEdit->Col][i],
                                 FrmSearch->edSeach->Text)){ //找到了
                                 sgEdit->Row=i;
                                 SeFlag=false;
                                 break;
                          }
                 }
                 if(SeFlag)  ShowMessage("Seach col end，Find Nothing.");
             break;
           }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::sgEditKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{

     bool SeFlag=true;
     if(Key==VK_F3){
            switch (FrmSearch->rgSI->ItemIndex)
           {
             case 0: //向上找;
                 for(int i=sgEdit->ColCount*sgEdit->Row+sgEdit->Col-1;i>sgEdit->ColCount;i--){
                     if(i%sgEdit->ColCount!=0){
                          if( 0==CompareStr(sgEdit->Cells[i-sgEdit->ColCount*(i/sgEdit->ColCount)][i/sgEdit->ColCount],
                                 FrmSearch->edSeach->Text)){ //找到了
                                 sgEdit->Col=i-sgEdit->ColCount*i/sgEdit->ColCount;
                                 sgEdit->Row=i/sgEdit->ColCount;
                                 SeFlag=false;
                                 break;
                          }
                     }
                 }
                 if(SeFlag)  ShowMessage("Seach Top，Find Nothing.");
             break;
             case 1:  //向下找;
                 for(int i=sgEdit->ColCount*sgEdit->Row+sgEdit->Col+1;i<sgEdit->ColCount*sgEdit->RowCount;i++){
                     if(i%sgEdit->ColCount!=0){
                          if( 0==CompareStr(sgEdit->Cells[i-sgEdit->ColCount*(i/sgEdit->ColCount)][i/sgEdit->ColCount],
                                 FrmSearch->edSeach->Text)){ //找到了
                                 sgEdit->Col=i-sgEdit->ColCount*(i/sgEdit->ColCount);
                                 sgEdit->Row=i/sgEdit->ColCount;
                                 SeFlag=false;
                                 break;
                          }
                     }
                 }
                 if(SeFlag)  ShowMessage("Seach End，Find Nothing.");
             break;
             case 2: //当前列向上找;
                 for(int i=sgEdit->Row;i>1;i--){
                          if( 0==CompareStr(sgEdit->Cells[sgEdit->Col][i],
                                 FrmSearch->edSeach->Text)){ //找到了
                                 sgEdit->Row=i;
                                 SeFlag=false;
                                 break;
                          }
                 }
                 if(SeFlag)  ShowMessage("Seach col Top，Find Nothing.");
             break;
             case 3:  //当前列向下找;
                 for(int i=sgEdit->Row;i<sgEdit->RowCount;i++){
                          if( 0==CompareStr(sgEdit->Cells[sgEdit->Col][i],
                                 FrmSearch->edSeach->Text)){ //找到了
                                 sgEdit->Row=i;
                                 SeFlag=false;
                                 break;
                          }
                 }
                 if(SeFlag)  ShowMessage("Seach col end，Find Nothing.");
             break;
           }
     }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::sgEditSelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
//
}
//---------------------------------------------------------------------------
void __fastcall TFrmMain::OpenFileCol(AnsiString FileName,int ColIndex,int ColType)
{
        int iFileHandle; //文件句柄
        char Txtbuf[255];
        int iVal;
        float fVal;
        FILE *stream;
        long curpos, length;
	DWORD dwRows, dwCols, dwRowLen, dwTextLen;

        DWORD dwTextStartPos;
	char* pTextPtr ;


   if ((stream = fopen(FileName.c_str(), "r+"))
       == NULL)
   {
      ShowMessage("Open File Error");
      return;
   }

   curpos = ftell(stream);
   fseek(stream, 0L, SEEK_END);
   length = ftell(stream);


   switch (ColType)
   {
     case 0: //整型值   Int
       for(int i=0;i<sgEdit->RowCount-1;i++){
           fseek(stream, 0x14+(i*(sgEdit->ColCount-1)+(ColIndex-1))*4, 0);
           fread(&iVal, 4, 1, stream);
           sgEdit->Cells[ColIndex][i+1]=IntToStr(iVal);
       }
     break;
     case 1: //浮点值    Float
       for(int i=0;i<sgEdit->RowCount-1;i++){
           fseek(stream, 0x14+(i*(sgEdit->ColCount-1)+(ColIndex-1))*4, 0);
           fread(&fVal, 4, 1, stream);
           sgEdit->Cells[ColIndex][i+1]=FloatToStr(fVal);
       }
     break;
     case 2: //文本      Text
        fseek(stream,0x4,0);
        fread(&iVal, 4, 1, stream);
        dwRows= iVal;
        fread(&iVal, 4, 1, stream);
        dwCols = iVal;
        fread(&iVal, 4, 1, stream);
        dwRowLen = iVal;
        fread(&iVal, 4, 1, stream);
        dwTextLen = iVal;

        dwTextStartPos = dwRows*dwRowLen+20;
       for(int i=0;i<sgEdit->RowCount-1;i++){
           fseek(stream, 0x14+(i*(sgEdit->ColCount-1)+(ColIndex-1))*4, 0);
           fread(&iVal, 4, 1, stream);
           sgEdit->Cells[ColIndex][i+1]=IntToStr(iVal);
           if(dwTextStartPos + iVal < length){
                 fseek(stream,dwTextStartPos + iVal,0);
                 fread(Txtbuf, 1, 255, stream);
                 //pTextPtr = pBuff + dwTextStartPos + lTemp;
                 sgEdit->Cells[ColIndex][i+1]=Txtbuf;
           }else{
                 sgEdit->Cells[ColIndex][i+1]="This Col Not Text!";
           }
       }
     break;
   }
   fclose(stream);
}
void __fastcall TFrmMain::Timer1Timer(TObject *Sender)
{
   if(OpenOk){
       lbOpState->Caption = "Open File Ok.";
   }else{
       lbOpState->Caption = "Open Now.....";
   }
}
//---------------------------------------------------------------------------
//当前格子写入修改文件中
void __fastcall TFrmMain::N4Click(TObject *Sender)
{
   if(!thOpen) return;
   
        int iFileHandle; //文件句柄
        char buf[4];
        int iVal;
        float fVal;
        FILE *stream;
/*
   if ((stream = fopen(CurrentOpenFile.c_str(), "r+"))
       == NULL)
   {
      ShowMessage("打开文件出错");
      return;
   }
*/
    iFileHandle = FileOpen(CurrentOpenFile, fmOpenRead|fmOpenWrite);//打开文件

   switch (thOpen->ColType[sgEdit->Col])
   {
     case 0: //整型值
       //for(int i=0;i<sgEdit->RowCount-1;i++){
       /*
           fseek(stream, 0x14+((sgEdit->Row-1)*(sgEdit->ColCount-1)+(sgEdit->Col-1))*4, 0);
           iVal=StrToInt(sgEdit->Cells[sgEdit->Col][sgEdit->Row]);
           memcpy(buf, &iVal, 4);
           for(int i=0;i<4;i++)
               fwrite(buf+i, 1, 1, stream);
       */
       iVal=StrToInt(sgEdit->Cells[sgEdit->Col][sgEdit->Row]);
       memcpy(buf, &iVal, 4);
       FileSeek(iFileHandle,0x14+((sgEdit->Row-1)*(sgEdit->ColCount-1)+(sgEdit->Col-1))*4,0);
       FileWrite(iFileHandle,buf,4);
       //}
     break;
     case 1: //浮点值
           //fseek(stream, 0x14+((sgEdit->Row-1)*(sgEdit->ColCount-1)+(sgEdit->Col-1))*4, 0);
           //fVal=StrToFloat(sgEdit->Cells[sgEdit->Col][sgEdit->Row]);
           //fwrite(&fVal, 4, 1, stream);
       fVal=StrToFloat(sgEdit->Cells[sgEdit->Col][sgEdit->Row]);
       memcpy(buf, &fVal, 4);
       FileSeek(iFileHandle,0x14+((sgEdit->Row-1)*(sgEdit->ColCount-1)+(sgEdit->Col-1))*4,0);
       FileWrite(iFileHandle,buf,4);
     break;
     case 2: //文本不写入
     break;
   }

  // fclose(stream);
  FileClose(iFileHandle);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::btTxtTypeClick(TObject *Sender)
{
if(OpenOk==true){
   AnsiString  iniSetFile=ExtractFilePath(Application->ExeName)+"BcdEditer.ini";
   AnsiString SectionName=ExtractFileName(CurrentOpenFile);
   TIniFile *ini;
   ini = new TIniFile( iniSetFile );
   ini->WriteInteger(SectionName,"ColType"+IntToStr(sgEdit->Col),2);
   delete ini;
   thOpen->ColType[sgEdit->Col]=2;
   OpenFileCol(CurrentOpenFile,sgEdit->Col,2);
}
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::ToolButton3Click(TObject *Sender)
{
    int OldCol;
    int OldRow;
    OldRow=sgEdit->Row;
    OldCol=sgEdit->Col;
    if(sgEdit->FixedCols==1){
        sgEdit->FixedCols =2;
        if(OldCol!=1)
           sgEdit->Col=OldCol;
        sgEdit->Row=OldRow;
    }else{
        sgEdit->FixedCols =1;
        sgEdit->Row=OldRow;
        if(OldCol!=2)
           sgEdit->Col=OldCol;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::btRowSaveClick(TObject *Sender)
{
if(OpenOk==false) return;

        int iFileHandle; //文件句柄
        char Txtbuf[255];
        int iVal;
        char buf[4];
        float fVal;
        FILE *stream;
        long curpos, length;
	DWORD dwRows, dwCols, dwRowLen, dwTextLen;

        DWORD dwTextStartPos;
	char* pTextPtr ;


   //if ((stream = fopen(CurrentOpenFile.c_str(), "r+"))
   //    == NULL)
   //{
   //   ShowMessage("打开文件出错");
   //   return;
   //}

   //curpos = ftell(stream);
   //fseek(stream, 0L, SEEK_END);
   //length = ftell(stream);
   iFileHandle = FileOpen(CurrentOpenFile, fmOpenRead|fmOpenWrite);//打开文件

for(int i=0;i<sgEdit->ColCount-1;i++){
   switch (thOpen->ColType[i])
   {
     case 0: //整型值             sgEdit->Row
           //fseek(stream, 0x14+((sgEdit->Row-1)*(sgEdit->ColCount-1)+i)*4, 0);
           //iVal=StrToInt(sgEdit->Cells[i+1][sgEdit->Row]);
           //fwrite(&iVal, 4, 1, stream);
       iVal=StrToInt(sgEdit->Cells[i+1][sgEdit->Row]);
       memcpy(buf, &iVal, 4);
       FileSeek(iFileHandle,0x14+((sgEdit->Row-1)*(sgEdit->ColCount-1)+i)*4,0);
       FileWrite(iFileHandle,buf,4);
     break;
     case 1: //浮点值
           //fseek(stream, 0x14+((sgEdit->Row-1)*(sgEdit->ColCount-1)+i)*4, 0);
           //fVal=StrToFloat(sgEdit->Cells[i+1][sgEdit->Row]);
           //fwrite(&fVal, 4, 1, stream);
       fVal=StrToFloat(sgEdit->Cells[i+1][sgEdit->Row]);
       memcpy(buf, &fVal, 4);
       FileSeek(iFileHandle,0x14+((sgEdit->Row-1)*(sgEdit->ColCount-1)+i)*4,0);
       FileWrite(iFileHandle,buf,4);
     break;
     case 2: //文本   不存
     break;
   }
}
   //fclose(stream);
   FileClose(iFileHandle);
   ShowMessage("The "+IntToStr(sgEdit->Row)+" Row Write Ok!");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::btColSaveClick(TObject *Sender)
{
if(OpenOk==false) return;

        int iFileHandle; //文件句柄
        char Txtbuf[255];
        int iVal;
        char buf[4];
        float fVal;
        FILE *stream;
        long curpos, length;
	DWORD dwRows, dwCols, dwRowLen, dwTextLen;

        DWORD dwTextStartPos;
	char* pTextPtr ;

    iFileHandle = FileOpen(CurrentOpenFile, fmOpenRead|fmOpenWrite);//打开文件

   //if ((stream = fopen(CurrentOpenFile.c_str(), "r+"))
   //    == NULL)
   //{
   //   ShowMessage("打开文件出错");
   //   return;
   //}

   //curpos = ftell(stream);
   //fseek(stream, 0L, SEEK_END);
   //length = ftell(stream);


   switch (thOpen->ColType[sgEdit->Col])
   {
     case 0: //整型值
       for(int i=0;i<sgEdit->RowCount-1;i++){
           //fseek(stream, 0x14+(i*(sgEdit->ColCount-1)+(sgEdit->Col-1))*4, 0);
           //iVal=StrToInt(sgEdit->Cells[sgEdit->Col][i+1]);
           //fwrite(&iVal, 4, 1, stream);
           iVal=StrToInt(sgEdit->Cells[sgEdit->Col][i+1]);
           memcpy(buf, &iVal, 4);
           FileSeek(iFileHandle,0x14+(i*(sgEdit->ColCount-1)+(sgEdit->Col-1))*4,0);
           FileWrite(iFileHandle,buf,4);
       }
     break;
     case 1: //浮点值
       for(int i=0;i<sgEdit->RowCount-1;i++){
           //fseek(stream, 0x14+(i*(sgEdit->ColCount-1)+(sgEdit->Col-1))*4, 0);
           //fVal=StrToFloat(sgEdit->Cells[sgEdit->Col][i+1]);
           //fwrite(&fVal, 4, 1, stream);
           fVal=StrToFloat(sgEdit->Cells[sgEdit->Col][i+1]);
           memcpy(buf, &fVal, 4);
           FileSeek(iFileHandle,0x14+(i*(sgEdit->ColCount-1)+(sgEdit->Col-1))*4,0);
           FileWrite(iFileHandle,buf,4);
       }
     break;
     case 2: //文本   不存
     break;
   }
   //fclose(stream);

   FileClose(iFileHandle);
   ShowMessage("The "+IntToStr(sgEdit->Col)+"Col Write Ok!");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::btRowClearClick(TObject *Sender)
{
if(OpenOk==false) return;

        int iFileHandle; //文件句柄
        char Txtbuf[255];
        int iVal;
        float fVal;
        FILE *stream;
        long curpos, length;
	DWORD dwRows, dwCols, dwRowLen, dwTextLen;

        DWORD dwTextStartPos;
	char* pTextPtr ;


   if ((stream = fopen(CurrentOpenFile.c_str(), "r+"))
       == NULL)
   {
      ShowMessage("Open File Error!");
      return;
   }

   curpos = ftell(stream);
   fseek(stream, 0L, SEEK_END);
   length = ftell(stream);

for(int i=1;i<sgEdit->ColCount-1;i++){
   switch (thOpen->ColType[i])
   {
     case 0: //整型值             sgEdit->Row
           //fseek(stream, 0x14+(sgEdit->Row*(sgEdit->ColCount-1)+i)*4, 0);
           //iVal=StrToInt(sgEdit->Cells[i+1][sgEdit->Row]);
           //fwrite(&iVal, 4, 1, stream);
           sgEdit->Cells[i+1][sgEdit->Row]="0";
     break;
     case 1: //浮点值
           //fseek(stream, 0x14+(sgEdit->Row*(sgEdit->ColCount-1)+i)*4, 0);
           //fVal=StrToFloat(sgEdit->Cells[i+1][sgEdit->Row]);
           //fwrite(&fVal, 4, 1, stream);
           sgEdit->Cells[i+1][sgEdit->Row]="0";
     break;
     case 2: //文本   不存
     break;
   }
}
   fclose(stream);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::btColClearClick(TObject *Sender)
{
if(OpenOk==false) return;

        int iFileHandle; //文件句柄
        char Txtbuf[255];
        int iVal;
        float fVal;
        FILE *stream;
        long curpos, length;
	DWORD dwRows, dwCols, dwRowLen, dwTextLen;

        DWORD dwTextStartPos;
	char* pTextPtr ;


   if ((stream = fopen(CurrentOpenFile.c_str(), "r+"))
       == NULL)
   {
      ShowMessage("Open File Error!");
      return;
   }

   curpos = ftell(stream);
   fseek(stream, 0L, SEEK_END);
   length = ftell(stream);


   switch (thOpen->ColType[sgEdit->Col])
   {
     case 0: //整型值
       for(int i=0;i<sgEdit->RowCount-1;i++){
           //fseek(stream, 0x14+(i*(sgEdit->ColCount-1)+(ColIndex-1))*4, 0);
           //iVal=StrToInt(sgEdit->Cells[ColIndex][i+1]);
           //fwrite(&iVal, 4, 1, stream);
           sgEdit->Cells[sgEdit->Col][i+1]="0";
       }
     break;
     case 1: //浮点值
       for(int i=0;i<sgEdit->RowCount-1;i++){
           //fseek(stream, 0x14+(i*(sgEdit->ColCount-1)+(ColIndex-1))*4, 0);
           //fVal=StrToFloat(sgEdit->Cells[ColIndex][i+1]);
           //fwrite(&fVal, 4, 1, stream);
           sgEdit->Cells[sgEdit->Col][i+1]="0";
       }
     break;
     case 2: //文本   不存
     break;
   }
   fclose(stream);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::ToolButton4Click(TObject *Sender)
{
	AnsiString Cmd;
        Cmd = "calc.exe";
	WinExec(Cmd.c_str(), SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------