Namen von boolschen Variablen / Bool Variablen überwachen

[Sugar]

OK, es geht also...

Kannst du mir ein Beispiel zeigen oder auf die Sprünge helfen?

[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;

[Dejan Vu]

Zitat von Aviator:

Deklariere ... oder auch Private (was eigentlich Quatsch ist)

Wieso ist das Quatsch?

[Jumpy]

Ich mag mich täuschen, aber ich habe den TE so verstanden, dass er gerne eine Prozedur hätte, der er eine beliebige (oder zumidnest verschiedene) Boolsche variablen übergeben kann und dir Prozedur negiert deren Wert und abhängig von der konkreten Variablen wird dann noch irgendwas in der Anzeige gesteuert.

Das wird aber wohl so naiv nicht funktionieren, weswegen er vielleicht um es einfach zu halten vielleicht das switchen der Variablenwerte jeweils für die Variablen an der richtigen Stelle selber macht und dann jeweils eine Prozedur aufruft, um die Anzeige anzupassen:

Delphi-Quellcode:

  [...irgendwo im Code passiert:]
  EditsOnLeftSideVisible:= True // False // not EditsOnLeftSideVisible ???
  AdjustView

procedure AdjustView()
  begin
  //...andere Prüfungen 
  PanelWithEditsOnLeftSide.Visible:=EditsOnLeftSideVisible;
  //...andere Prüfungen 
  end;

Eine Funktion, die nur eine boolsche Variable "Switched", könnte man realisieren, indem man die variable als Referenz übergibt:

Delphi-Quellcode:

procedure SwitchBoolValue(var aBool:Bool);
  begin
  aBool:=not aBool;
  end;

[Sugar]

Zitat von Jumpy:

Ich mag mich täuschen, aber ich habe den TE so verstanden, dass er gerne eine Prozedur hätte, der er eine beliebige (oder zumidnest verschiedene) Boolsche variablen übergeben kann und dir Prozedur negiert deren Wert und abhängig von der konkreten Variablen wird dann noch irgendwas in der Anzeige gesteuert.

Stimmt! So war der ursprüngilche Gedanke. Hintergrund ist der, dass ich nicht an jeder Stelle an der diese Variable(n) verändert werden, manuell die Routine zum Anpassen der Ansicht aufrufen muss. Ich will - sozusagen - auf das "Event" des Ändern des Werts der Bool-Variable reagieren.

Ich probiere es zunächst einmal mit dem Hinweis auf den Setter. Vielen Dank zunächst..