Gibt es einen Toggle Befehl ?

[ebber]

Hallo

Gibt es einen Toggle Befehl ?

Ich habe das jetzt so gemacht :

Delphi-Quellcode:

if DLED1.checked then
DLED1.checked:=false
else
DLED1.checked:=true;

Gibt es da irgend einen Befehl der das irgenwie macht ?

MfG

[leddl]

Im Endeffekt nicht, du kannst deinen Code aber noch deutlich zusammenfassen :zwinker:

Delphi-Quellcode:

DLED1.checked := not DLED1.checked;

[katjah]

DLED1.checked:=not DLED1.checked;

[Christian Seehase]

Moin ebber,

Du musst aber aufpassen, dass Du das nicht im OnClick-Ereignis der Checkbox machst, da dieses durch das Setzen der Eigenschaft Checked ausgelöst wird.

[IngoD7]

Zitat:

Zitat von Christian Seehase

Moin ebber,

Du musst aber aufpassen, dass Du das nicht im OnClick-Ereignis der Checkbox machst, da dieses durch das Setzen der Eigenschaft Checked ausgelöst wird.

Das stimmt.
Allerdings wäre es auch reichlich sinnfrei, es dort einzubauen, weil ein Klick auf die CheckBox den Toggle ja schon von ganz alleine bewirkt. :wink:

[Reinhard Kern]

Zitat:

Zitat von ebber

Hallo

Gibt es einen Toggle Befehl ?

Ich habe das jetzt so gemacht :

Delphi-Quellcode:

if DLED1.checked then
DLED1.checked:=false
else
DLED1.checked:=true;

Gibt es da irgend einen Befehl der das irgenwie macht ?

MfG

Hallo,

wenn man einen Befehl haben möchte und es gibt ihn noch nicht, dann macht man ihn eben (die Logik wurde ja schon erklärt):

Delphi-Quellcode:

procedure Toggle (var B : boolean);
begin
B := not B;
end;
...
Toggle (DLED1.checked);

Gruss Reinhard

[Amateurprofi]

Zitat:

Zitat von Reinhard Kern

wenn man einen Befehl haben möchte und es gibt ihn noch nicht, dann macht man ihn eben (die Logik wurde ja schon erklärt):

Delphi-Quellcode:

procedure Toggle (var B : boolean);
begin
B := not B;
end;
...
Toggle (DLED1.checked);

Gruss Reinhard

So mal eben funktioniert das aber nicht.
[Fehler] E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

[Ghostwalker]

Delphi-Quellcode:

  function Toggle(const b:boolean):boolean;
  begin
    result := not b;
  end; 


  DLED1.checked := Toggle(DLED1.checked);

Das sollte "mal eben" funktionieren :wink:

[marabu]

Ganz ehrlich, Ghostwalker: Ehe ich eine Toggle-Funktion schreibe, nehme ich doch lieber den Vorschlag von Katja und Axel:

Delphi-Quellcode:

 with DLED1 do Checked := not Checked;

Keine Frage, es geht so wie du schreibst, aber sinngemäß ist Toggle für mich eine Prozedur.

Freundliche Grüße

[leddl]

Zitat:

Zitat von marabu

Keine Frage, es geht so wie du schreibst, aber sinngemäß ist Toggle für mich eine Prozedur.

Zum einen das, zum anderen ist

Delphi-Quellcode:

DLED1.checked := Toggle(DLED1.checked);

ja nicht wirklich praktischer als

Delphi-Quellcode:

DLED1.checked := not DLED1.checked;

;)

[IngoD7]

Ich will auch, ich will auch ... :-D

Prozedur:

Delphi-Quellcode:

procedure Toggle(aBox: TCheckBox);
begin
   if aBox is TCheckBox then
      aBox.Checked := not aBox.Checked;
end;
...
Toggle(DLED1);

Beschränkt auf TCheckBox natürlich.

[Reinhard Kern]

Zitat:

Zitat von Amateurprofi

So mal eben funktioniert das aber nicht.
[Fehler] E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

Hallo,

stimmt, beim Aufruf mit einer CheckBox - aber das finde ich eine Inkonsistenz der Borländer: wenn ich einer Boolschen Variablen einen Wert zuweisen kann, dann kann sie nicht im Ernst konstant sein. Das ist der gleiche Unsinn wie mit den typisierten Konstanten, die in Wirklichkeit initialisierte Variable sind. Der Umgang von Borland mit dem Begriff "const" hat nach meinem Gefühl schon Hackerniveau, so etwas gibt es meines Wissens in anderen Sprachen nicht.

Der wahre Grund für den Fehler ist, dass der Compiler statt der einfachen Zuweisung die Methode SetChecked einbauen muss, dazu muss er wissen, dass Checked eine Property von TCheckBox ist, und das ist zur Compiletime eben nicht bekannt. Daher hat sich Borland wohl den Trick mit dem unechten Const einfallen lassen. Die Tatsache, dass Checked eine Property ist und keine einfache Variable, wirkt sich aber auch in anderen Fällen aus, dann aber ohne Fehlermeldung:

Delphi-Quellcode:

procedure Toggle (const B : Boolean);
var BPtr : PBoolean;
begin
BPtr := @B;
BPtr^ := not B;
end;

ist korrekt und wird compiliert (auch der Aufruf mit TCheckBox.Checked), funktioniert aber nicht.

Gruss Reinhard

[ebber]

Danke an euch alle. :thumb:

[Ghostwalker]

Zitat:

Zitat von marabu

Ganz ehrlich, Ghostwalker: Ehe ich eine Toggle-Funktion schreibe, nehme ich doch lieber den Vorschlag von Katja und Axel:

Delphi-Quellcode:

 with DLED1 do Checked := not Checked;

Keine Frage, es geht so wie du schreibst, aber sinngemäß ist Toggle für mich eine Prozedur.

Freundliche Grüße

Ich habe nie behauptet das es sinnvoll ist, dafür eine Funktion/Prozedur zu schreiben, da ich, wie die meisten, dafür keine Funktion/Prozedur brauche (und mir ehrlich gesagt auch kein Fall einfallen würde, wo man so eine Vorgehen braucht). Aber die Fragestellung lautete nunmal so, daher auch meine Antwort :)

Für die Anhänger von Prozeduren hat Reinhard ja die richtige Vorgehensweise aufgezeigt :)

[Sidorion]

Das:

Delphi-Quellcode:

procedure Toggle (const B : Boolean);
var BPtr : PBoolean;
begin
BPtr := @B;
BPtr^ := not B;
end;

kann garnicht funktionieren, da die Direktive 'const' CallByValue (Worth) bewirkt (also genauso wie ohne Direktive, ausser, dass der Wert des Aufrufparameters zusätzlich nicht änderbar ist). Dies hat zur Folge, dass der Wert der Eigenschaft Checked als Kopie übergeben wird und diese kannst Du mit diesem Trick natürlich ändern, das hat aber keinerlei Einfluss auf das Original.

Dass man Properties nicht als Varparameter übergeben kann hat einen anderen Grund: Hier wird CallByReference (Wirth) zelebriert, also eigentlich wird intern nur ein Zeiger auf den Speicherbereich des Übergabeparameters übergeben. Das ist das, was die C-ler umständlich mit Pointern lösen müssen. Da eine Property aber nicht in dem Sinne eine 'Speicherzelle' wie eine 'normale' variable ist, kann man keinen Zeiger darauf übergeben. Das gleiche gilt auch für die Direktive 'out'.