タイプセットの変数の要素数を取得するにはどうすればよいですか？

Question

AFAIKそのための組み込み関数はありません。ウェブ検索私はこれを見つけたfunctionそれは私のために働くが、私はそれがアセンブリであり、私はそれが何をしているのか理解できないので、それを使用しないことを好む。だから私も働き、この機能を書いた：

function Cardinality(const PSet: PByteArray; 
    const SizeOfSet(*in bytes*): Integer): Integer; 
const 
    Masks: array[0..7] of Byte = (1, 2, 4, 8, 16, 32, 64, 128); 
var 
    I, J: Integer; 
begin 
    Result := 0; 
    for I := 0 to SizeOfSet - 1 do 
    for J := 0 to 7 do 
     if (PSet^[I] and Masks[J]) > 0 then 
     Inc(Result); 
end; 

さて、私はこの機能に頼ることができるかどうかを知りたいですか？または、設定されたデータ型の背後にトリックがあることがあります。そのため、デルファイにはそのための組み込みメソッドがありません。

しかしif私の関数は信頼性があるがthenがどのように私はそれを改善することができます。それに

1. パス定数
2. は型チェックを行い、設定が機能
3. 峠に渡されていることを確認します代わりに、そのアドレス
4. の値はSizeOfSetパラメータを取り除く

Cardinality(@AnySet, SizeOf(TAnySet))の代わりにCardinality(AnySet)のように呼びたいと思っています。

ところで、私はXEとXE5の両方でこれをコンパイルする必要があります。

Answer 1

これはジェネリックスとRTTIで実装できます。以下のようなので：

uses 
    SysUtils, TypInfo; 

type 
    ERuntimeTypeError = class(Exception); 

    TSet<T> = class 
    strict private 
    class function TypeInfo: PTypeInfo; inline; static; 
    public 
    class function IsSet: Boolean; static; 
    class function Cardinality(const Value: T): Integer; static; 
    end; 

const 
    Masks: array[0..7] of Byte = (1, 2, 4, 8, 16, 32, 64, 128); 

implementation 

{ TSet<T> } 

class function TSet<T>.TypeInfo: PTypeInfo; 
begin 
    Result := System.TypeInfo(T); 
end; 

class function TSet<T>.IsSet: Boolean; 
begin 
    Result := TypeInfo.Kind=tkSet; 
end; 

function GetCardinality(const PSet: PByteArray; 
    const SizeOfSet(*in bytes*): Integer): Integer; inline; 
var 
    I, J: Integer; 
begin 
    Result := 0; 
    for I := 0 to SizeOfSet - 1 do 
    for J := 0 to 7 do 
     if (PSet^[I] and Masks[J]) > 0 then 
     Inc(Result); 
end; 

class function TSet<T>.Cardinality(const Value: T): Integer; 
var 
    EnumTypeData: PTypeData; 
begin 
    if not IsSet then 
    raise ERuntimeTypeError.Create('Invalid type in TSet<T>, T must be a set'); 
    Result := GetCardinality(PByteArray(@Value), SizeOf(Value)); 
end; 

は使用方法：あなたがこれを行うことができますデルファイの以前のバージョンで

Writeln(TSet<SomeSet>.Cardinality(Value)); 

Answer 2

：

function Card(ASet: TSet): Integer; 
var 
    k: TSetElement; 
begin 
    Result := 0; 
    for k in ASet do Inc(Result); 
end;