InstanceSize in D3 und D7

[Sprint]

Zitat von MrSpock:

ich speichere ähnlich wie im oben verlinktem Code die Eigenschaften des Objektes ab.

Mein Vorschlag wäre TReader und TWriter zu benutzen.

Delphi-Quellcode:

type
  TMyObject = class(TObject)
  private
    FValueA: Integer;
    FValueB: String;
  public
    procedure SaveToStream(AStream: TStream);
    procedure LoadFromStream(AStream: TStream);
    property ValueA: Integer read FValueA write FValueA;
    property ValueB: String read FValueB write FValueB;
  end;

Delphi-Quellcode:

procedure TMyObject.LoadFromStream(AStream: TStream);
begin
  with TReader.Create(AStream, 4096) do
    try
      FValueA := ReadInteger;
      FValueB := ReadString;
    finally
      Free;
    end;
end;

procedure TMyObject.SaveToStream(AStream: TStream);
begin
  with TWriter.Create(AStream, 4096) do
    try
      WriteInteger(FValueA);
      WriteString(FValueB);
    finally
      Free;
    end;
end;

Ist deine Klasse von TComponent abgeleitet, kannst du auch WriteComponent und ReadComponent benutzen.