Machs so
Delphi-Quellcode:
type
TRechner = class(TObject)
private
FDoubleValue: Double;
public
constructor Create;
property DoubleValue: Double read FDoubleValue write FDoubleValue;
end;
Den ganzen anderen Kram brauchst Du nicht. Der Konstruktor ist i.d.R. Public, es sei denn aus irgendeinem Grund soll er nur innerhalb der
Unit aufrufbar sein. Free brauchst Du nicht, überschreibt man auch nicht. IdR überschreibt man den destrucotr Destroy, aber nur wenn man was frei zu geben hat - hast Du aber nicht. Die SetValue und GetValue-Funktionen kannst Du mit dem obigen property-Befehl sparen.