[svn] * Proper SVN structureinit

--HG--
branch : trunk

1 files changed, 769 insertions, 0 deletions

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