Petit souci avec BoolToStrRésolu

Question

Salut,



Je souhaite convertir un boolean de telle mani&#232;re que :

        false = '0' en string;

       true = '1' en string;



La fonction BoolToStr(valeur,flag) donne false 0 et true -1 si flag
est false et donne la premi&#232;re valeur des array TrueBoolStrs et
FalseBoolStrs si flag est true, avec par d&#233;faut les string  'true'
et 'false'.



Ces array ne sont apparement pas directement accessible et il faudrait les cr&#233;er ce que j'ai fait :

SetLength(TrueBoolStrs,2);

SetLength(FalseBoolStrs,2);



TrueBoolStrs[0] := '1';

trueBoolStrs[1] := 'true';

FalseBoolStrs[0] := '0';

FalseBoolStrs[1] := 'false';


Et bien cela ne marche pas!



booltostr(true,true) donne 'true' et booltostr(false,true) donne 'false'.



Quoi moi y en a pas compris 


Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

roud59 · Accepted Answer

Bonjour

Curieux en effet. J'ai essay&#233; avec Delphi7 :

SetLength(TrueBoolStrs,2);
SetLength(FalseBoolStrs,2);TrueBoolStrs[0] := '1';

trueBoolStrs[1] := 'true';
FalseBoolStrs[0] := '0';
FalseBoolStrs[1] := 'false';


ShowMessage(booltostr(true,true))

et j'obtiens '1' comme pr&#233;vu ???

voici ce que trouve dans le sysutil.pas

function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
const
  cSimpleBoolStrs: array [boolean] of String = ('0', '-1');
begin
  if UseBoolStrs then
  begin
    VerifyBoolStrArray;
    if B then
      Result := TrueBoolStrs[0]
    else
      Result := FalseBoolStrs[0];
  end
  else
    Result := cSimpleBoolStrs[B];
end;

et

procedure VerifyBoolStrArray;
begin
  if Length(TrueBoolStrs) = 0 then
  begin
    SetLength(TrueBoolStrs, 1);
    TrueBoolStrs[0] := DefaultTrueBoolStr;   //= 'True'
  end;
  if Length(FalseBoolStrs) = 0 then
  begin
    SetLength(FalseBoolStrs, 1);
    FalseBoolStrs[0] := DefaultFalseBoolStr;  //= 'False'

  end;
end;

Si &#231;a peux t'aider ...

Tu peux aussi faire :
const
  BoolStrArray : array[false..true] of string = ('0','1');
et
  ShowMessage(BollStrArray[UnBoolean]);

Roud59

taye78 · Answer

Salut, une m&#233;thode tr&#232;s simple, si j'ai bien compris la question :
Convertir une variable boolean en une interpr&#233;tation string:
Ord(True) 1 & Ord(False) 0 donc....

var teste: boolean;
begin
teste := true;
showmessage(inttostr(ord(teste)));
end;

sinon on peut faire &#231;a propre fonction qui examinerai le boolean et qui retournerai un string en fonction de celui-ci. 

A plus

-wG-  irc.heliosnet.org - #programmation

taye78 · Answer

Je tien &#224; rapeller que ce que j'ai dis (ord(true) [...]) n'est valable que pour un type BOOLEAN et non pas pour les types ByteBool, WordBool, LongBool vu qu'eux Ord(True) <> 0 (-1). Donc dans ce cas, une solution simple serait la cr&#233;ation d'une fonction minime qui effectue la comparaison.

-wG-  irc.heliosnet.org - #programmation

vincentstryckmans · Answer

J'ai toruv&#233; mon erreur. Merci &#224; toi roud59 de m'avoir aiguill&#233; sur sysutils.pas.



J'avais simplement et b&#234;tement red&#233;clar&#233; TrueBoolStrs et FalseBoolStrs dans mon code

Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

Petit souci avec BoolToStr

4 réponses

Votre réponse

Discussions similaires