MFC串行化类CArchive

void __fastcall TForm1::Button9Click(TObject *Sender)
{
//创建文件
CFile file("1.txt",CFile::modeCreate | CFile::modeWrite);
//串行化，存储
CArchive ar(&file,CArchive::store);
//存储数据
int   i = 0x31;
char ch = 'A';
float f = 1.3f;
CString str("chinayu@qq.com");
//写入串行化
ar<<i<<ch<<f<<str;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
//打开文件
CFile file("1.txt",CFile::modeRead);
//加载流
CArchive ar(&file,CArchive::load);
//接收变量
int i;
char ch;
float f;

CString str;
CString strresult;
//提取数据给变量
ar>>i>>ch>>f>>str;
strresult.Format("%d,%c,%f,%s",i,ch,f,str);//转化格式
AfxMessageBox(strresult);
}