Stream im Object als publisched property

[Flocke]

Da das Objekt einen fremden Ursprung hat, darfst du es nicht in deinem Creator erzeugen, es wird ja mittels der Property gesetzt.

Das sähe dann so aus:

Delphi-Quellcode:

TName = class(TBaseObject)
  private
    fStream: TStream;
    procedure SetStream(aStream: TStream);
    function GetStream: TStream;
  published
    property Stream: TStream read GetStream write SetStream;
  end;

procedure TName.SetStream(aStream: TStream);
begin
  fStream := aStream;
end;

function TName.GetStream: TStream;
begin
  Result := fStream;
end;

Wenn die Routinen GetStream und SetStream wirklich nur das tun, was du hingeschrieben hast, dann reicht auch eine Deklaration ohne jede Funktion:

Delphi-Quellcode:

TName = class(TBaseObject)
  private
    fStream: TStream;
  published
    property Stream: TStream read fStream write fStream;
  end;