Registriert seit: 5. Aug 2003
Ort: Osnabrück
505 Beiträge
Delphi 2005 Professional
|
Stream im Object als publisched property
22. Jun 2005, 23:58
Hallo.
Ich möchte gern einen Stream als publisched property deklarieren. Doch irgendwie sagt mir Delphi immer incompatible Typen...
Delphi-Quellcode:
TName = class(TBaseObject)
private
fStream : TStream;
procedure SetStream(aStream : TStream);
function GetStream(aStream:TStream):TStream;
public
constructor Create;
published
property Stream : TStream read GetStream write SetStream;
end;
procedure TName.SetStream(aStream : TStream);
begin
fStream := aStream;
end;
function TName.GetStream(aStream:TStream):TStream;
begin
result := fStream;
end;
constructor TName.Create;
begin
inherited;
fStream := TStream.Create;
end;
Marco Wer Rechtschreibfehler findet, der darf sie behalten
Carpe Diem - Nutze den Tag (und zwar den ganzen!)
|