Wertebereich vererbter Eigenschaft begrenzen

**fuchsle**

Hallo,

ich arbeite mich gerade noch in Dlphi ein und habe zur Vererbung eine Frage.

Ich habe von einer Klasse mehrer Klassen erfolgreich abgeleitet und arbeite damit.
Nun möchte ich eine gemeinsam verwendete Eigenschaft (Integer) auf einen Bereich von -50 bis 150 einschränken.

Dazu habe ich volgendes in der Methode zur Eigenschaft in der Mutterklasse implementiert.
Die logs werden geschrieben. Nun arbeite ich aber hier mit einem call by value, wie bekomme ich einen call by reference? Denn der Werte "T" wird in der abgeleiteten Klasse nicht verändert.

Oder habe ich einen größeren Denkfehler drin?

markieren

Code:

			procedure tClimaModel.setTSet(T: Double);

begin

  if T < -50 then

  begin

    T := -50;

    logthis('Error: TSet out of range (min)');

  end

  else if T > 150 then

  begin

    T := 150;

    logthis('Error: TSet out of range (max)');

  end;

end;

Vielen Dank für eure Hilfe.

Wertebereich vererbter Eigenschaft begrenzen

Wertebereich vererbter Eigenschaft begrenzen

Forumregeln