Class -->Error

[DeddyH]

Ich hatte ja auch nicht behauptet, dass Getter generell sinnlos sind . Nochmal ein Beispiel:

Delphi-Quellcode:

type
  TMyClass = class
  private 
    FAge: integer;
    procedure SetAge(const value: integer);
    function GetAge: integer;
  public
    property Age: integer read GetAge write SetAge;
  end;

...

procedure TMyClass.SetAge(const value: integer);
begin
  if value > 0 then
    FAge := value
  else
    raise Exception.Create('Ungeborene gelten nicht.');
end;

function TMyClass.GetAge: integer;
begin
  Result := FAge; //einfacher Fall, könnte auch z.B. das Ergebnis einer Berechnung sein
end;