[svn] * Removal of not needed old DBC tools

--HG--
branch : trunk

1 files changed, 0 insertions, 769 deletions

diff --git a/contrib/dbcEditer/dbcedit.cpp b/contrib/dbcEditer/dbcedit.cpp
deleted file mode 100644
index 2812a3f7071..00000000000
--- a/contrib/dbcEditer/dbcedit.cpp
+++ /dev/null
@@ -1,769 +0,0 @@
-//---------------------------------------------------------------------------
-
-#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);
-}
-//---------------------------------------------------------------------------
-
-