如何访问另一个控件的指针有源码
本帖最后由 laohei0304 于 2013-03-13 11:27:22 编辑
void __fastcall TFormMaster::Button1Click(TObject *Sender)
{
//----------------------------------------------
//-打开文件复制内容至recvbuf[1024*1024]
//指向文件内容指针char* pfile
//----------------------------------------------
TStringList *Str=new TStringList();
AnsiString S; char recvbuf[1024*1024];
if (OpenDialog1->Execute())
{
Str->LoadFromFile(OpenDialog1->FileName);
S=AnsiString(Str->Text);
}
memset(recvbuf,0x00,sizeof(recvbuf));
strcpy(recvbuf,S.c_str());
char* pfile = recvbuf;
Label1Click(Sender);
}
void __fastcall TFormMaster::Label1Click(TObject *Sender)
{
//==================================================================================
//-将数据流存入结构体
//==================================================================================
memcpy(Buff16, pfile, 4); //DWORDType;记录类型
Record.Tags.Type = atol(Buff16); //Record.Tags.Type是自己定义的结构
}