|
Registriert seit: 10. Feb 2006
255 Beiträge
Delphi XE2 Professional
|
Re: Anzahl Elemente in "set of"
8. Apr 2009, 13:55
evtl. ist RTTI Dein Freund:
Delphi-Quellcode:
function CountElements(ATypeAddress: pointer): integer;
var
lTypeData: PTypeData;
begin
lTypeData:= GetTypeData(ATypeAddress);
Result := lTypeData^.MaxValue;
end;
Der Aufruf dann:
myNumerousElements:= CountElements(TypInfo(TFontStyle));
"Wer seinem Computer Mist erzählt, muss immer damit rechnen..." (unbekannt)
"Der Computer rechnet damit, dass der Mensch denkt..." (auch unbekannt)
 mein blog
|