Discussion :

[Mihalis]

bonjour, excusez-moi pr ce post, mais une question me vient à la suite d'un problème de test,
j'ai une variable boolean, que j'initialse a true je fais ensuite directement if(test) mais il ne l'a prend pas pcq en réalité elle vaut -1
je n'ai rien modifié dans les valeurs de true ou false
qq'un saurait-il pq ????

[Ultima]

Bonjour,
Tu peux montrer comment tu déclares ta variable, et comment tu l’initialises s’il te plaît ?
Juste un petit bout de code ça ne peut pas faire de mal non ?

[rv26t]

Bonjour,
Teste ce bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var a,b:boolean;
begin
 a:=true;
 b:=false;
 edit1.Text:=booltostr(a);
 edit2.Text:=booltostr(b);
 if a then edit1.Text:=edit1.Text+' OK';
 if b then edit2.Text:=edit2.Text+' Jamais écrit dans edit2.';
end;

Tu verras que La valeur de true -> est -1. (Ne pas tester avec -1)
Mais pour voir ce que contient ta variable tu devrais faire menu "Exécuter", "Evaluer/modifier" (ou "inspecter"). Là tu verra true ou false.

En complément de ce que demande Ultima, peux-tu aussi mettre le code du "if ..."
A+, Hervé.

[Gaadek]

Je voudrais savoir si cela génère une erreur?

En effet, dans la majorité des langages de programmation, un booléen reste une variable de type numérique (pour Delphi, je ne pourrais tout de même pas l'affirmer à 100%)

Le résultat "true" ou "false" est en fait la résultante de ce précept:
- Si la variable a une valeur égale à 0, alors c'est false,
- Si la variable a une valeur différente de 0, alors c'est true (ce qui implique que 1, 61 ou 5453 représente un booléen vrai)

[TicTacToe]

je ne connaissais pas BoolToStr

Mais ce n'est qu'une fonction pour visualiser un booléen.
Physiquement, un booléen est une valeur ordinale qui prendre les valeurs 0 (false) et 1 (true).

Code :

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

IntToStr( Ord( MonBool ) )

pour tester

bizzare que booltostr renvoie un -1 pour true (mais l'aide le dit bien)

[rv26t]

Effectivement, ce que je montre avec BoolToStr c'est uniquement pour expliquer et montrer. On ne teste pas avec, d'ou ma remarque (Ne pas tester avec -1).
Mihalis ne nous a pas indiqué comment il regardait sa variable. Je cherchais simplement comment il avait pu faire.
A+, Hervé.

[Graffito]

Bonjour

bizzare que booltostr renvoie un -1 pour true (mais l'aide le dit bien)

Pas tant que ça, -1 correspond à un mot avec tous les bits à 1.

[ShaiLeTroll]

Vous devriez tous faire F1 sur BooltoStr, et vous verrez que tout est normal !

Ensuite, pourquoi -1, là c'est mystère, même dans les DFM c'est stocké en chaine True/False !

[TicTacToe]

Bonjour


Pas tant que ça, -1 correspond à un mot avec tous les bits à 1.

bien vu

mais un peu tiré par les cheveux, car pourquoi choisir de signer le nombre ?
Ca aurait pu être Max( Word ) ou Max( LongWord), bon, le -1 permet de faire abstraction de cette manière de la longueur de l'entier (16,32,64 bits...), c'est vrai, c'est plus pratique de signer...
Ca sent les compatibilités ancestrales tout ca.

En attendant, Ord( True ) = 1 et pas -1

@ShaiLeTroll
bah oui, je suppose que l'on a tous fait F1
on discute voila tout

[tourlourou]

tiens, je pensais plutôt que -1 = FFFFFFFF !!!

[Gaadek]

bien vu
mais un peu tiré par les cheveux, car pourquoi choisir de signer le nombre ?

Car tout booléen qui se respecte est un numérique qui vaut 0 pour false et une valeur différente de 0 pour true, sans que cette valeur soit forcément 1 (c'est typiquement un résonnement "humain" de se dire que false = 0, true = 1, ce qui n'est pas du tout logique pour nos petite machine siliciumées)...

[TicTacToe]

@Tourlourou
personne n'a dit le contraire

@Gaadek
Oui ca peut être une norme, pour nos cerveaux, mais moins pour une machine.
Un booléen a 2 états, peut être considéré comme un entier sur une base 2.
Tout ca dans le but de simplifier les opérations booléennes (or, not, xor et cie).

si un true vaut 3 et un autre true vaut 4, les opérations booléennes seraient délicates
-> (je ne parle pas des opérations bits à bit qui revienne à la convention 0-1 pour le true/false...) !.
donc aucune logique de valoriser un true avec des valeurs différentes entre elles mais différentes de 0.

donc c'est vrai que le -1 (symbolisant tous les bits à 1) vaut aussi bien que le 1, qui est le successeur de 0 dans une base 2. Après c'est une question d'habitude.
enfin, c'est mon avis ^^

[Gaadek]

@Tourlourou
personne n'a dit le contraire

@Gaadek
Oui ca peut être une norme, pour nos cerveaux, mais moins pour une machine.
Un booléen a 2 états, peut être considéré comme un entier sur une base 2.
Tout ca dans le but de simplifier les opérations booléennes (or, not, xor et cie).

si un true vaut 3 et un autre true vaut 4, les opérations booléennes seraient délicates
-> (je ne parle pas des opérations bits à bit qui revienne à la convention 0-1 pour le true/false...) !.
donc aucune logique de valoriser un true avec des valeurs différentes entre elles mais différentes de 0.

donc c'est vrai que le -1 (symbolisant tous les bits à 1) vaut aussi bien que le 1, qui est le successeur de 0 dans une base 2. Après c'est une question d'habitude.
enfin, c'est mon avis ^^

Sauf que la gestion mémoire d'un bit n'existe pas à proprement parler, mais est toujours gérée sous forme d'octet...

[tourlourou]

@ TicTacToe : la prochaine fois, je réfléchirai, promis !

[sjrd]

En Delphi, il existe quatre types de valeurs booléennes. Il s'agit des quatre types suivants :

• boolean (1 octet, non signé) : sa valeur vaut soit 0 (False), soit 1 (True) ; jamais une autre valeur ;
• ByteBool (1 octet, signé) : sa valeur vaut soit 0 (False), soit autre chose (True) ;
• WordBool et LongBool, comme ByteBool mais sur 2 et 4 octets respectivement.

Je travaille actuellement intensivement sur la structure interne des types Delphi, donc j'en sais quelque chose

[TicTacToe]

le différent de 0 est une facilité pour les humains je pense.
Informatiquement, le stockage est autre.
(l'aide Delphi dit bien '<>0' = True).

Mais un petit test dessus, confirme que les booléen sont soit
- comme graffito le faisait remarquer avec des 1 sur tous les bits (pour ByteBool)
- des ordinaux en base 2, 0/1. donc sous utilisés par rapport à la capacité mémoire de stockage (élément de base = octet ou mot). (pour Boolean)

Quelques petits test avec ByteBool:

Code :

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

1
2
3
4
5
6
var
   b: ByteBool;
begin
     b := True;
     ShowMessage( IntToStr( Ord( b ) ) );
end;

--> le résultat affiche '-1'

Code :

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

1
2
3
4
5
6
var
   b: ByteBool;
begin
     b := ByteBool( 43 );
     ShowMessage( IntToStr( Ord( b ) ) );
end;

--> le résultat affiche '-1'

Code :

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

1
2
3
4
5
6
var
   b: ByteBool;
begin
     b := ByteBool( 43 );
     ShowMessage( IntToStr( Integer( b ) ) );
end;

--> le résultat affiche '-1'

Par contre

Code :

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

1
2
3
4
5
6
7
var
   b: ByteBool;
   c: Integer;
begin
     c := 43;
     ShowMessage( IntToStr( Integer( ByteBool( c ) ) ) );
end;

--> le résultat est '43'.
Le support de stockage de c est Integer. physiquement, la valeur reste 43.


donc dès l'affectation, quelque soit l'affectation à b différent de 0, au final, b se retrouve avec une valeur à -1 (tous les bits à 1).
moi ca me parait logique

Qu'en pense-tu Sjrd ?

(en tout cas, je ne connaissais pas les ByteBool et compagnie, on en apprends tous les jours )

en fait, il faudrait faire un dump de la mémoire, juste après l'affectation
b := BytBool( 43 )
et voir réellement sa valeur.

[Mihalis]

bonjour, mon code est tout simple

Code :

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

1
2
3
4
var test:boolean;
begin
test:=true;
showmessage(booltostr(test));

il me renvoie donc bien -1
je trouve ca très étrange

[TicTacToe]

sur BoolToStr

et c'est normal, la fonction est comme ca, et a pris comme convention le '-1' pour 'True'
Ctrl-Clic sur BoolToStr, pour voir le code de cette fonction, le True est associé à la chaine '-1'...

[Mihalis]

je trouve ca qd meme bizarre comme convention mais bon
sinon merci pr le ctrl clic

[sjrd]

Qu'en pense-tu Sjrd ?

Je ne m'étais pas fié à ce que raconte l'aide, c'est trop imprécis. Ce qui fonctionne vraiment, c'est aller voir le code source de System.pas et TypInfo.pas, puis jouer avec les RTTI.

Le fait que Ord(True) vaille -1 pour les XXXBool, c'est normal : True est une constante qui vaut -1 dans ce cas. Mais de fait un 43 affecté donnera une valeur vraie, stockée comme 43.

Sauf qu'en exécutant le code suivant, tu verras que boolean n'accepte que 0 ou 1, tandis que ByteBool est conciliant à toutes valeurs. Bien que le compilateur, lorsqu'il peut simplifier à la compilation, lui affecte -1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var MyByteBool : ByteBool;
    MyBool : boolean;
    MyByte : Byte;
 
MyByteBool := ByteBool(43);
MyBool := MyByteBool;
WriteLn('MyByteBool'#9'= ByteBool(43)'#9#9'= ', Ord(MyByteBool));
WriteLn('MyBool'#9#9'= MyByteBool'#9#9'= ', Ord(MyBool));
 
MyByte := 43;
MyByteBool := ByteBool(MyByte);
MyBool := MyByteBool;
WriteLn('MyByteBool'#9'= ByteBool(MyByte)'#9'= ', Ord(MyByteBool));
WriteLn('MyBool'#9#9'= MyByteBool'#9#9'= ', Ord(MyBool));

Ce qui affiche :

Code X :

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

1
2
3
4
MyByteBool      = ByteBool(43)          = -1
MyBool          = MyByteBool            = 1
MyByteBool      = ByteBool(MyByte)      = 43
MyBool          = MyByteBool            = 1