Einzelnen Beitrag anzeigen

Benutzerbild von Flocke
Flocke

Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#11

Re: Stream im Object als publisched property

  Alt 26. Jun 2005, 00:10
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;
Volker
  Mit Zitat antworten Zitat