Discussion :

[user 56gt8]

Bonjour , je recherche de l'aide par rapport à une petite idée que j'aimerais utiliser dans un projet perso qui n'avance pas.

Dans ce projet , un peu typé : tableau , base de donnée , explorateur de fichier , j'utilse des tags , des qualificatifs pour décrire un fichier particulier.

J'ai donc par exemple un array[0..249] of boolean pour chaque entrée de la bdd
Au niveau de la sauvegarde de la pseudo bdd je me suis confronté au problème de la taille et du temps pris pour écrire ce fichier.les txt , les ini , les xmls etc ca ne collait pas et là aujourd'hui : "tilt":

l'array de bool ce n'est autre que des séries de 0100010010011110111
Bref du binaire....
Alors au lieu de stocker cette string je stocke sa représentation décimale
via un sympathique bintoint trouvé ici :
http://delphi.about.com/od/mathemati...aseconvert.htm

Bref génial l'écriture de la sauvegarde est 250X plus rapide et le fichier est 40X moins gros...

Le problème c'est que l'interprétation inverse ne marche pas:

voici la démarche:
*Lire la ligne en question (elle contient un longint qui représente l'array de boolean de manière encodée et compréssée , si vous avez suivit) readln
*la transormer en chaine binaire : strtoint() puis inttobin()
*lire char par char la chaine et convertir en bool selon les '0' ou '1'

Au niveau de la logique c'est superbe, mais ca ne marche pas.
La chaine binaire est à l'envers , c.a.d que dans mon logiciel il y a souvent
100110010010011 suivit de 235 '0' comme tous les tags ne sont pas définis.

Et lors de la transformation inverse je retrouve 235 '0' puis mon '100110010010011' d'origine.
Et pas moyen de faire ca correctement avec les strutils.

Quelq'un saurait il m'aider au niveau cette transformation et inverse de chaine binaire?
Quelqu'un connait il un composant qui permette de travailler au niveau des octets et en binaire ?

Sinon à la base c'est génial comme idée non ?Ca a déjà été fait et utilisé ?

[tourlourou]

hello,

j'utiliserais bien, dans ce cas, un descendant de TBits, qui implémenterait un LoadFromStream/SaveToStream

sinon, pour ton pb, montre nous le code

[Qwazerty]

SAlut
C'est plutot etonant etant donner que les 0 placer devant ne sont pas des bits significatif, alors qu'a la transcription bit -> int il etaient apres et donc cette fois ci significatif, la valeur decimal qui en decoule est effectivement totalement differente.
Je serai egalement curieux de voir un bout de code, le sujet semble interessant.

[Edit]
Je pense avoir une raison possible a ton probleme
Pour moi la fonction BinToInt renvoie une valeur erronnée puisqu'elle ne tient pas compte des 0 se trouvant a droite du dernier bit a 1
Pour cette function 1000 = 1
[/Edit]

[Edit2]
Tiens trouvé egalement sur Torry's

Code :

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

1
2
3
4
5
6
7
8
9
function TForm1.BinToInt(Value: string): Integer;
var
  i, iValueSize: Integer;
begin
  Result := 0;
  iValueSize := Length(Value);
  for i := iValueSize downto 1 do
    if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));
end;

Avec ca ca fonctionne au poile.
[/Edit2]
++
Qwaz