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;
读取,反过来就是了,不多说。