如题,最好能给出程序,谢谢各位高手大哥
解决方案 »
- 创建窗体动态链接库,成功运行,在文件夹里找不到后缀是.dll的对象
- 江湖救济 求C代码翻译成DELPHI 就2个简单的函数功能
- 请教关于dbgrideh 不同值颜色不同的问题
- 重复插入数据问题 附代码
- 怎样实现关闭form之前提示保存当前信息,点“取消”不做任何操作、form也不关闭
- 在delphi程序中如何彻底删除 .dbf表(VF表)中的内容
- 如何获取本机IP
- 浅谈多态(转贴)//菜鸟请进!
- 有关TChart 画图这方面的一个问题,请帮忙解决!!!高分
- 子线程能不能调用中间层的远端过程?
- 51delphi现在怎么不能下载了,哪有好的安装工具下载?
- 一个十分莱的问题!!!!,能告诉我有什么规律吗????
This example shows how to use the built-in component streaming support to convert any component into a string and convert that string back into a component.function ComponentToString(Component: TComponent): string;var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free; end;
finally
BinStream.Free
end;
end;function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil); finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;