Delphi 对象流式管理---窗体文件（*.dfm）的转换…

  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的转换。
			   
			   

                       标签：
                   
                   
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com

特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有