Discussion :

[colorid]

Bonjour,

Je voudrais écrire un tableau de booléens de grande dimension dans un fichier texte et je n'y arrive pas.
Quelqu'un peut-il me conseiller ?
Le tableau est de la forme array of array of boolean
les dimensions sont importantes de l'ordre de 1000x1000

Merci de me trouver une solution

[sjrd]

Oui mais que veux-tu stocker dans le fichier texte ? Des '0' et des '1' ASCII, sur 1000 lignes x 1000 colonnes ?

[Graffito]

Utiliser une Tstringlist : par exemple, pour un tableau de 3x5 booléns, 3 lignes de 5 caractères prenant comme valeur "0" ou "1".

[Tardiff Jean-François]

Peut être quelque chose comme cela pourrait vous aider.

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
 
Function Bools_to_String(B1, B2, B3, B4, B5, B6, B7, B8: boolean): String;
var
  I: Integer;
begin
  I := 0;
  if B1 then
    I := I + 1;
  If b2 then
    I := I + 2;
  If B3 then
    I := I + 4;
   if B4 then 
     I := I + 8;
  if B5 then
    I := I + 16;
  if B6 then
    I := I + 32;
  if B7 then 
    I := I +64;
  if B8 then
    I := I + 128;
  result := IntTostr(I);
end;

Si vous préférer vous pouver aussi utiliser les opérateur logiques

Les opérateurs logiques suivants effectuent des manipulations bit-à-bit sur des opérandes entiers. Si, par exemple, la valeur stockée dans X est (au format binaire) 001101 et si la valeur stockée dans Y est 100001, l'instruction

Z := X or Y;

affecte la valeur 101101 à Z.

Opérateurs logiques (bit-à-bit)
Opérateur Opération Types d'opérande Type du résultat Exemples
not négation bit-à-bit entier entier not X
and et bit-à-bit entier entier X and Y
or ou bit-à-bit entier entier X or Y
xor ou exclusif bit-à-bit entier entier X xor Y
shl décalage à gauche bit-à-bit entier entier X shl 2
shr décalage à droite bit-à-bit entier entier Y shr I
Les règles suivantes s'appliquent aux opérateurs bit-à-bit :

Le résultat d'une opération not est de même type que l'opérande.
Si les opérandes d'une opération and, or ou xor sont tous les deux des entiers, le résultat est du plus petit type entier prédéfini qui inclut toutes les valeurs possibles des deux types.
Les opérations x shl y et x shr y décalent la valeur x vers la gauche ou vers la droite de y bits, ce qui revient (si x est un entier non signé) à multiplier ou à diviser x par 2^y ; le résultat est du même type que x. Si, par exemple, N contient la valeur 01101 (13 en décimal), alors N shl 1 renvoie 11010 (26 en décimal). Notez que la valeur de y est interprétée comme le modulo de la taille du type de x. Ainsi, par exemple, si x est un entier, x shl 40 est interprété comme x shl 8 car un entier a pour taille 32 bits, et 40 mod 32 correspond à 8.