Delphi对象流式管理

    在Delphi5和Delphi6中，对窗体文件（*.dfm）的保存格式不一样，如果要想在Delphi5中打开Delphi6写的Project，则必须对窗体文件进行转换，这要了解Delphi中的对象流式管理。流在Delphi中有重要的作用，今天我是利用TStringStream和TMemoryStream将Delphi6的窗体文件转换成delphi5能识别的格式。TStringStream主要是用流的形式表示字符串，从而在流中对字符串进行操作。 数据挖掘研究院 

在主窗体上放上两个memo控件，一个opendialog控件，一个button控件，memo1用于读取delphi6的窗体文件（*.dfm），memo2用于显示转换后的窗体文件。 数据挖掘研究院 

procedure TForm1.Button1click(sender:TObject); 数据挖掘研究院 

var 
数据挖掘研究院
 

  aFormString:string; 数据挖掘研究院 

  lsrc,ldest:TStringStream; 
数据挖掘实验室
 

  lbin:TMemoryStream; 数据挖掘实验室 

begin 
数据挖掘研究院
 

  Memo1.lines.clear; 数据挖掘研究院 

  ldest:=TStringStream.Create("); 数据挖掘研究院 

  lbin:=TMemoryStream.Create; 数据挖掘研究院 

  if opendialog1.Execute then 数据挖掘实验室 

    memo1.Lines.LoadFromFile(OpenDialog1.FileName); 数据挖掘研究院 

    aFormString:=memo1.lines.Text; 数据挖掘研究院 

  lsrc:=TStringStream.Create(aFormstring); 
数据挖掘研究院
 

  lsrc.Seek(0,soFromBeginning); 数据挖掘研究院 

  ObjectTexttoBinary(lsrc,lbin); 
数据挖掘研究院
 

  lbin.Seek(0,soFromBeginning); 数据挖掘研究院 

  ObjectBinarytoTextEx(lbin,ldest); 
数据挖掘研究院
 

//  Classes.ObjectBinaryToText(lbin,ldest); 数据挖掘研究院 

  Memo2.Lines.Text:=ldest.DataString; 
数据挖掘研究院
 

  Memo2.Lines.SaveToFile(opendialog1.FileName); 
数据挖掘实验室
 

  showmessage("转换成功！"); 数据挖掘研究院 

  lsrc.Free; 数据挖掘研究院 

  ldest.Free; 
数据挖掘研究院
 

  lbin.Free; 
数据挖掘研究院
 

end; 
数据挖掘研究院
 

ObjectTexttoBinary，此过程是直接调用classes.pas单元，不用做任何修改。 数据挖掘研究院 

ObjectBinarytoTextEx，此过程95%与classes.pas单元的ObjectBinarytoText相同，只是在convertvalue过程中要做两点改动： 数据挖掘研究院 

1．在vaWString后要加上vaUTF8String，在classes.pas单元中只有对vawstring的转换而没有vautf8string的转换。 
数据挖掘研究院
 

2．将vaWString和vaUTF8String的转换过程换成跟vaString, vaLString:的一样就可以了，大家从classes.pas单元中可以看到这两个地方的处理有细微的变化，正是这点变化造成了delphi6和delphi5窗体文件格式不兼容。其它的都不用作修改，笔者调试通过，原来在delphi5下打不开的project经过转换后均能用delphi5打开。 数据挖掘实验室