eine Art onchange für Variabeln?

[jfheins]

Ich hätte da mal was:

Delphi-Quellcode:

TOnChangeNotifier = class
private
  FValue: Integer;
protected
  procedure SetValue(x: Integer);
public
  property Value read FValue write SetValue;
end;

implementation

procedure TOnChangeNotifier.SetValue(x: Integer);
begin
  if x >= 0 then
    FValue := x;
  else
    raise ERangeError.Create();

{
// Alternativ:
 if x >= 0 then
    FValue := x;
  else
    FValue := 0;
}
end;

Das OnChange-Event kann man bei Bedarf ja noch hinzufügen