Einzelnen Beitrag anzeigen

fuchsle

Registriert seit: 22. Jul 2011
Ort: Heilbronn
35 Beiträge
 
Delphi XE3 Professional
 
#1

Wertebereich vererbter Eigenschaft begrenzen

  Alt 3. Aug 2011, 10:18
Delphi-Version: 2010
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?


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.
  Mit Zitat antworten Zitat