Was passiert denn da?

[delphia]

Hallo,

ich bin über eine Zeile gestoßen, die ich mir nicht erklären kann. Es geht darum in einem TfrView(Fast-Report) die Funktion WordWrap ein und auszuschalten. Geschaltet wird mit ckbWordWrap.Checked, einer Checkbox. Die Zeile lautet

Code:

Memo.Flags := (Memo.Flags and not flWordWrap) or Word(Boolean(ckbWordWrap.Checked)) * flWordWrap;

Wobei die einzelnen Teile so definiert sind:

Code:

Flags: Word;

// object flags
  flStretched = 1;
  flWordWrap = 2;
  flWordBreak = 4;
  flAutoSize = 8;
  flTextOnly = $10;
  ...

Was mich irritiert ist die Verwendung von logischen Operatoren im Zusammenhang mit ganzen Zahlen. Warum macht man das nicht als Menge wie z.B. bei Font.Styles?

Danke für die Aufmerksamkeit.

[p80286]

Code:

Memo.Flags := (Memo.Flags and not flWordWrap) or Word(Boolean(ckbWordWrap.Checked)) * flWordWrap;

das ist so ein Konstrukt für das man C so mag.

Code:

(Memo.Flags and not flWordWrap) = Memo.Flags or 111111101 = alle Bits sind gesetzt bis auf das zweite, das ist oder nicht

 Word(Boolean(ckbWordWrap.Checked)) * flWordWrap = 0 oder 2 {2=flchecked}

also setzt diese Zeile das zweite Bit abhängig davon ob ckbWord.Checked true ist.
und alle anderen Bits sind auch gesetzt.
(Mann hoffentlich hab ich mich nicht verlaufen)

Gruß
K-H

[Neutral General]

Alle anderen Bits sind nicht auch gesetzt, sondern bleiben so wie sie vorher waren.

Code:

    xxxxxxxx      (Memo.Flags)
and 11111101     (not flWordWrap)
================
    xxxxxx0x

[Der schöne Günther]

Mich verwirrt immer noch das " * flWordWrap" also Multiplikation mal 2. Also im Endeffekt Bit-Shiften um eins nach links. Warum schreibt man "multipliziert mit Wordwrap" statt "shl 1"?

[Neutral General]

Zitat von Der schöne Günther:

Mich verwirrt immer noch das " * flWordWrap" also Multiplikation mal 2. Also im Endeffekt Bit-Shiften um eins nach links. Warum schreibt man "multipliziert mit Wordwrap" statt "shl 1"?

Word(Boolean(ckbWordWrap.Checked)) ergibt entweder 0 oder 1. Also Entweder 0xflWordWrap oder 1xflWordWrap. Was am Ende bedeutet:
Bei true werden die Flags mit flWordWrap verodert, bei false nicht (bzw. sie werden mit 0 verodert, was keine Auswirkung hat)

[Sherlock]

Hab die Klammerung falsch gelesen... Alles klar. Aber es geht hoffentlich auch im Delphi Style und damit besser lesbar.

Sherlock

[Neutral General]

(Hat sich erledigt, weil sich Sherlocks Beitrag erledigt hat)

[p80286]

Zitat von Neutral General:

Alle anderen Bits sind nicht auch gesetzt, sondern bleiben so wie sie vorher waren.

Code:

    xxxxxxxx      (Memo.Flags)
and 11111101     (not flWordWrap)
================
    xxxxxx0x

verlesen das or war ein and

Gruß
K-H

[t.roller]

Was soll denn DIESER Titel ?

[Neutral General]

Ich gebe dir Recht dass der Titel keinen Preis verdient, aber Clickbait?