eigenes Object / Klasse in Stream einlesen

[Sir Rufo]

Ein Objekt?

Dann bau dir in das Objekt Methoden, die daraus einen Stream machen bzw. daraus wieder die Werte auslesen.

Delphi-Quellcode:

TMyObject = class
  procedure SaveToStream( AStream : TStream );
  procedure LoadFromStream( AStream : TStream );
  class function CreateFromStream( AStream : TStream ) : TMyObject;
end;

class function TMyObject.CreateFromStream( AStream : TStream ) : TMyObject;
begin
  Result := TMyObject.Create;
  Result.LoadFromStream( AStream );
end;