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
猜你喜欢
转载自www.cnblogs.com/tobetterlife/p/12173002.html
今日推荐
周排行