xstreams.txt

我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面

unit xStreams;


//TStream.ReadComponent、TStream.WriteComponent及相关函数可读写VCL组件。


//根据VCL提供的组件继承机制，SavePropertyToStream、LoadPropertyFromStream
//以类似DFM文件格式记录组件属性数据，十分适合担任字体信息，节点数据或
//组件特性的管理存储方法。例：
{
var
	Stream: TStream;
begin
	Stream:= TStream.Create('TreeView.Dat', fmCreate or fmOpenWrite);
	with Stream do
	try
		SavePropertyToStream(Stream,TreeView1,'Font');
		SavePropertyToStream(Stream,TreeView1,'Nodes');
	finally
		Free;
	end;
end;		
}
//这两个函数可与任何数据流使用，不会干扰数据流中其它数据处理。



//将Instance对象的PropName属性写入Stream流中，此属性必须是公开属性；
procedure SavePropertyToStream(Stream: TStream; Instance: TPersistent; PropName: string);


//将Instance对象的PropName属性从Stream流读出，此属性必须是公开属性；
procedure LoadPropertyFromStream(Stream: TStream; Instance: TPersistent);


//链接VCL应用程序时，会将可能使用的DFM数据放入执行文件的RC_DATA资源区段
//资源名称为Form的类名称。ReadFormAsText由AExeName执行文件读出类名称为
//AClassName的Form，并将其文字表示写入Strings对象。
// 将 form 以 text 形式从 executable 的 resource table 读出
procedure ReadFormAsText(AExeName, AClassName: string; Strings: TStrings);

//WriteFormAsBinary 将 form 以 text 形式写入 executable 的 resource table
//本函数仅适用于NT系统。
procedure WriteFormAsBinary(AExeName, AClassName: string; Strings: TStrings);

//将Form文字表示转换为Form对象。
function VisualizeForm(Strings: TStrings): TForm;

//将Form对象转换为Form文字表示。
procedure TextizeForm(AForm: TForm; Strings: TStrings);