delphi save .dfm to .txt

Posted tobetterlife

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi save .dfm to .txt相关的知识,希望对你有一定的参考价值。

procedure TForm2.saveDfm;
var
  inStream,outStream:TMemoryStream;
begin
   inStream:=TMemoryStream.Create;
   outStream:=TMemoryStream.Create;
   try
      inStream.WriteComponent(self);
      inStream.Position:=0;
      ObjectBinaryToText(inStream,outStream);
      outStream.Position:=0;
      outStream.SaveToFile(c.txt);
   finally
     FreeAndNil(inStream);
     FreeAndNil(outStream);
   end;
end;

以上是关于delphi save .dfm to .txt的主要内容,如果未能解决你的问题,请参考以下文章