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.
type TMySet = set of TMyEnum; .



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

Das - bei Sets entfernt die Flags bitweise und nicht arithmetisch.
x := y - z; entspricht eigentlich einem x := y and not z; .

Wenn du aber eh nur einzelne Flags entfernen/hinzufügen wollst, dann nutze doch einfach die fertigen Funktionen.
> 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.