Zitat:
das wird wohl nicht funktionieren, da man ja auch folgendes machen kann:
drum schrieb ich, wenn zwischendurch nix fehlt!
Delphi-Quellcode:
type
TFontStyle = (fsBold, fsItalic, fsStrikeOut, fsUnderline=15);
TFontStyles = set of TFontStyle;
procedure Test(const Styles: TFontStyles);
var
anzahlAttribute: Integer;
begin
anzahlAttribute := Byte(Styles); // <--- Tata
Tata = Compilerfehler