如何存窗体上的多个控件和把保存的多个控件读到窗体上

[oyzm]

TFileStream * stream=new TFileStream("c\\test.smt",fmCreate|fmOpenWrite);
stream->WriteComponent(Edit1);
delete stream;
这段代码只能写一个edite1到文件
如果我有多个edit1还有IMAGE1那应如何才能全写入文件

[zbc]

TFileStream *stream = new TFileStream("C:\\test.smt",fmcreate|fmOpenWrite);
for(int i = 0;i<=this->Components->Count -1;i++)
stream->WriteComponent(this->Components[i]);
delete stream;

[oyzm]

帮我

[oyzm]

如何读这些控件到窗体上啊？

[kingcaiyao]

WriteComponent
ReadComponent

[oyzm]

ReadComponent每次操作只能读一个控件，如果我文件中存了很多控件怎么办？

[oyzm]

没人会吗？

[caomeng2002]

请看这俩个函数
AnsiString CToString(TComponent *c)
{
TMemoryStream* ms;
TStringStream* ss;
ss = new TStringStream(" ");
ms = new TMemoryStream;
try{
ms->WriteComponent(c);
ms->Position = 0;
ObjectBinaryToText(ms, ss);
ss->Position = 0;
return ss->DataString;
}
__finally
{
delete ms;
delete ss;
}
return ss->DataString;
}
//---------------------------------------------------------------------------
TComponent* StringToComponent(AnsiString as)
{
TMemoryStream* pms = new TMemoryStream();

TStringStream* pss = new TStringStream(as);
TComponent *pc;

try
{
ObjectTextToBinary(pss, pms);
pms->Seek(0, soFromBeginning);
}
catch(...)
{
ShowMessage("Streaming error.");
}
pc = pms->ReadComponent(NULL);
delete pms;
delete pss;
return pc;

}
关键是用流ReadComponent和WriteComponent枚举窗体上的控件保存成string 再从STRING 到COMPONENT。

[caomeng2002]

当然有些控件如MEMO你的用类似下面的函数读回，我就是这么做的
先定义
TMemo *me=TMemo(this);
在把me放在函数中
void StringToComponent1(TComponent* Component,const AnsiString& Value)
{


TStringStream* ss;
TMemoryStream* ms;

ss = new TStringStream(Value);
try
{
ms = new TMemoryStream;
try
{
ObjectTextToBinary(ss, ms);
ms->Position = 0;
ms->ReadComponent(Component);
}
__finally
{
delete ms;
}
}
__finally
{
delete ss;
}
}