VaRのあるinStream、OUTSTREAM:TMemoryStream; 開始 inStreamには: = TMemoryStream。作成します。 OUTSTREAM: = TMemoryStream。作成します。 してみてください inStream.WriteComponent(自己)。 inStream.Position: = 0 ; ObjectBinaryToText(inStreamに、OUTSTREAM)。 outStream.Position: = 0 ; outStream.SaveToFile(' c.txt ' ); 最後に FreeAndNil (inStreamに); FreeAndNil (OUTSTREAM)。 エンド; //WriteComponentResFile( 'c.res'、自己); エンド ;
読むには、順番に、言っても過言を望んでいます。