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; //WriteComponentResFile('c.res',self); end;
Read, in turn, wants much to say.