Was für ein Sinn mach ein Property ohne Setter. Dann kann ich doch gleich eine Function daraus machen.
Das kann z.B. für lazy initialisation (heißt das so?) interessant sein:
Delphi-Quellcode:
Type TFoo=Class
private
fBar:TBar;
function getBar:TBar;
public
Property Bar:TBar read getBar;
end;
//....
function TFoo.getBar:TBar;
begin
if fBar=nil then
begin
fBar:=TBAr.create;
//...
end;
Result:=fBar;
end;