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?

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.

[himitsu]

Natürlich kannst du so den wert nicht ändern ... ohne Zugriff auf die Variable.

Aber du mußt doch sowieso irgendwie die überschriebene Methode des Vorfahren aufrufen und dort gibst du dann den angepaßten Wert weiter.

Delphi-Quellcode:

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;
  inherited;  // oder   inherited setTSet(T);
end;

oder falls das Logging nicht nötig ist:

Delphi-Quellcode:

procedure tClimaModel.setTSet(T: Double);
begin
  inherited setTSet(Min(Max(T, -50), 150);
end;

Du hast doch mit virtual und override überschrieben?

[CCRDude]

Moment mal, die Funktien bearbeitet doch nur einen übergebenen Parameter. Ich glaube, wir sollten hier weit vor der Vererbungsproblematik ansetzen, nämlich:

procedure tClimaModel.setTSet(var T: Double);

[fuchsle]

Zitat von CCRDude:

Moment mal, die Funktien bearbeitet doch nur einen übergebenen Parameter. Ich glaube, wir sollten hier weit vor der Vererbungsproblematik ansetzen, nämlich:

procedure tClimaModel.setTSet(var T: Double);

Was ändere ich durch das var?
Den Aufruf von Call by Value zu Call by Reference?
Oder was genau bewirkt var an dieser Stelle?

[DeddyH]

Zitat von fuchsle:

Was ändere ich durch das var?
Den Aufruf von Call by Value zu Call by Reference?

Exakt.