Discussion :

[Papy214]

Toujours pour le fun, j'ai fait une procédure pour transformer le set en tableau de booléen. Je sais, c'est inutile, j'ai bien dit pour le fun

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
  procedure MemoryToBoolArray(Mem: pointer; Len: Integer; var R: TArray<boolean>);
  var
    P, PEnd: PByte;
    I, J   : NativeUInt;
    B, C   : Byte;
  begin
    SetLength(R, Len * 8);
 
    P    := Mem;
    PEnd := PByte(UIntPtr(P) + Len);
    I    := 0;
    J    := I;
    while P < PEnd do
    begin
      B := Byte(P^);
 
      for I  := 0 to 7 do
      begin
        C := 1 shl I;
        R[J] := B and C = C;
        Inc(J);
      end;
 
      Inc(P);
    end;
  end;

[Papy214]

Pour ceux qui n'auraient pas vu dans les dernières versions de Delphi :

System.Types.TBitConverter

Je n'ai pas Alexandria mais je suis curieux de savoir si ça prend aussi les set