Namen von boolschen Variablen / Bool Variablen überwachen

[Aviator]

Deklariere im Public-Abschnitt oder auch Private (was eigentlich Quatsch ist) eine property

Delphi-Quellcode:

type

TTestClass = class
private
  FMyProperty: Boolean;
  procedure SetMyProperty(Value: Boolean);
  function GetMyProperty: Boolean;
public
  // Alternativ zu GetMyProperty kannst du auch einfach FMyProperty einsetzen, da beim Lesen ja nur der aktuelle Wert zurückgegeben werden soll
  property MyProperty: Boolean read GetMyProperty write SetMyProperty;
end;

implementation

procedure TTestClass.SetMyProperty(Value: Boolean);
begin
  if SomeCondition then  // Hier kannst du entscheiden, wann deine Variable gesetzt werden soll
    FMyProperty := Value;
end;

function TTestClass.GetMyProperty: Boolean;
begin
  Result := FMyProperty;
end;

Alles nur so hier reingeschrieben. Es könnte also auch der ein oder andere (Schreib-)Fehler darin enthalten sein.


Edit: Im Setter (SetMyProperty) kannst du natürlich noch hunderte weitere Schritte ausführen wie z.B. ein paar Buttons je nach Zustand ein- oder ausschalten. Halte den Setter aber so kurz wie möglich.

Delphi-Quellcode:

procedure TTestClass.SetMyProperty(Value: Boolean);
begin
  if SomeCondition then  // Hier kannst du entscheiden, wann deine Variable gesetzt werden soll
    FMyProperty := Value;

  DoSomeOtherStuffHere;
end;