mirror of
https://github.com/mangosfour/server.git
synced 2025-12-12 01:37:00 +00:00
769 lines
24 KiB
C++
769 lines
24 KiB
C++
//---------------------------------------------------------------------------
|
||
|
||
#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);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
|