Flag (Enumeration) übergeben

[Bjoerk]

Als welchen Typ übergibt man denn bei einem FlagSet ein einzelnes Flag?

Delphi-Quellcode:

Procedure DelPrnFlag (var Flags: TPrnFlags; Flag: ???);
begin
  if Flag in Flags then Flags:= Flags-[Flag];
end;

[Medium]

TPrnFlags wird wohl ein "set of XXX" sein - ich mutmaße mal "set of TPrnFlag", womit letzteres dein Kandidat wäre ;)

[Bjoerk]

Delphi-Quellcode:

type
  TPrnFlags = set of (rot, gruen, blau, ...);

var
  Flags: TPrnFlags

Die Procedure soll Flags-Flag rechnen, als z.B. Flags-rot. Welchen Typ hat den rot ?

[himitsu]

Dann kannst du es vergessen dir sowas selber zu deklarieren, denn dafür benötigst du eine einzelne Typdeklaration, für den Enum.

Delphi-Quellcode:

type TMySet = set of TMyEnum;

.



Du kannst es auch direkt entfernen und mußt nicht erst prüfen.

Das

Delphi-Quellcode:

-

bei Sets entfernt die Flags bitweise und nicht arithmetisch.

Delphi-Quellcode:

x := y - z;

entspricht eigentlich einem

Delphi-Quellcode:

x := y and not z;

.

Wenn du aber eh nur einzelne Flags entfernen/hinzufügen wollst, dann nutze doch einfach die fertigen Funktionen. :wink:
> Exclude und Include

DelPrnFlag = Exclude

Delphi-Quellcode:

if Flag in Flags then Flags:= Flags-[Flag];

Flags:= Flags-[Flag];  // prüfen nicht nötig

Exclude(Flags, Flag);

[Bjoerk]

Okay, thanx. Exclude und Include kannte ich nicht.