Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#9

Re: Set mit voller Menge initialisieren

  Alt 3. Jun 2009, 21:34
Zitat von NamenLozer:
Was passiert dann, wenn man Sets vergleicht?
Das Selbe wie bei Muetze1's Version ... es "knallt"
Zitat von himitsu:
und der Code, welcher dieses Set dann verarbeit, damit klar kommt, wenn dort auch "ungenutzte" Bits/Werte gesetzt sind.
Delphi-Quellcode:
Type TMeinSetElement = (elEins, elZwei, elDrei);
  TMeinSet = Set of TMeinSetElement;

Var A, B, C: TMeinSet;

Begin
  A := [Low(TMeinSetElement)..High(TMeinSetElement)];
  B := [elEins..elDrei];
  Byte(C) := $FF;
  If A = B Then MessageBox(0, 'A = B', '', 0);
  If A = C Then MessageBox(0, 'A = C', '', 0);

// "A = C" wird nie angezeigt
$2B or not $2B
  Mit Zitat antworten Zitat