Hallo,
ich habe in einem Programm ein "set of"-Type deklariert.
Beispiel:
Delphi-Quellcode:
type
TFontStyle = (fsBold, fsItalic, fsStrikeOut, fsUnderline);
TFontStyles = set of TFontStyle;
procedure Test(const Styles: TFontStyles);
var
anzahlAttribute: Integer;
begin
anzahlAttribute := Length(Styles); // <--- Compile-Error
case anzahlAttribute of
0: ShowMessage('STYLES ist leer');
1: ShowMessage('STYLES hat ein Attribut');
else
ShowMessage(Format('STYLES hat %d Attribute', [anzahlAttribute]));
end;
end;
Meine Frage ist nun wie ich herausfinden kann, wieviele Attribute(?) nun in dem
set of enthalten sind?