Writes the TPersistent object specified by Instance to a stream as the root object
 Warning
|
Do not use this method when you are trying to write a TPersistent object out as part of another component. This method is intended for when you want to save the Instance object as the top-level object of a stream. For example, as a SaveToStream/LoadFromStream method pair for the Instance
|
Namespace: FilerHelper
Delphi
|
public
procedure WriteRootPersistent( Instance: TPersistent );
|
Parameters
Instance
Type: TPersistent
Delphi
|
procedure TMyPersistent.LoadFromStream(const Stream: TStream);
var
Reader: TReader;
begin
Reader := TReader.Create(Stream, 4096);
try
Reader.ReadRootPersistent(Self);
finally
Reader.Free;
end;
end;
procedure TMyPersistent.SaveToStream(const Stream: TStream);
var
Writer: TWriter;
begin
Writer := TWriter.Create(Stream, 4096);
try
Writer.WriteRootPersistent(Self);
finally
Writer.Free;
end;
end;
|
|
