Est-il un moyen plus facile de faire boolean conversions?

J'ai utilisé ce scénario plusieurs fois dans presque tous mes projets, quand je suis en train de faire une sorte de conversion de données, quand il s'agit de booléens, j'ai un peu avoir un peu perdu quand il s'agit de faire simple. Cette déclaration ci-dessous colle dehors comme un pouce endolori tout mon code:

if BoolVal then
  StrVal:= 'True'
else
  StrVal:= 'False';

Je me demande si il ya un moyen plus facile pour effectuer cette évaluation? Peut-être une certaine utilisation de l' Case déclaration, je ne le sais pas? Ma réelle mise en œuvre est plus complexe que juste StrVal mais il ne se composent que de retourner deux valeurs différentes en fonction de si c'est Vrai ou Faux. Pour exemple, voici quelques-uns de code réel...

if fsBold in Can.Font.Style then
  ConvertTo(AddSomeOtherText + 'True')
else
  ConvertTo(AddSomeOtherText + 'False');

C'est juste pour insister sur la manière simple, je l'espère. Je me demande si je peux faire quelque chose le long des lignes de ce:

ConvertTo(AddSomeOtherText + BoolToStrCase((fsBold in Can.Font.Style), 'True', 'False'));

Je suis sûr que c'est pas une commande, mais je suis à la recherche de ce type de simplicité dans une seule ligne.

  • Ok ce n'était pas vraiment "réel" code mais juste un exemple que je déteste la duplication de code pour chaque boolean d'évaluation.
  • Est-ce que votre langue de support de l'opérateur ternaire? StrVal =: BoolVal ? 'True' : 'False'
  • Étrangement, je vois que la précédente question sur StackOverflow liées à Delphes est aussi se demander comment faire un Booléen comparaison simple. Autre question entièrement avec des réponses différentes, mais les deux dos à dos...
InformationsquelleAutor Jerry Dodge | 2012-11-06
  1. 41

    Dans l'unité StrUtils, il est ifthen()

    StrVal := IfThen(BoolVal,'True','False');

    Et pour ce cas précis, vous pourriez même utiliser:

    StrVal := BoolToStr(BoolVal);
    • Magnifique!!! Toutes ces années...
    • BoolToStr a déménagé à SysUtils dans mon delphi version (XE4)
    • Faites attention avec BoolToStr(). Sa sortie est '-1' et '0' lors de son UseBoolStrs paramètre est false (par défaut), et est basé sur le TrueBoolStrs et FalseBoolStrs tableaux lorsque UseBoolStrs est vrai. Si vous ne pouvez pas toujours obtenir 'True' et 'False' sur tous les systèmes. IfThen() serait un meilleur choix si vous avez besoin d'obtenir des résultats prévisibles.
    InformationsquelleAutor Wouter van Nifterick
  2. 24

    Ux com on personne n'a jamais entendu parler d'un tableau indexé par le booléen?

    const
  BOOL_TEXT: array[boolean] of string = ('False', 'True');
  YES_NO_TEXT: array[boolean] of string = ('No', 'Yes');
  ERROR_OR_WARNING_TEXT: array[boolean] of string = ('Warning', 'Error');

    C'est en fait ce que BoolToStr utilise elle-même!

    function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
const
  cSimpleBoolStrs: array [boolean] of String = ('0', '-1');
    • +1 malgré le vilain capitalisation. 😛
    • Ah, oui, pense qu'il est moche, mais il aide à reconnaître les constantes lors de la lecture du code, donc je souffre de la laideur volontiers. 😉
    • C'est un code standard règle de mise en forme à toujours tirer profit des constantes
    InformationsquelleAutor Marjan Venema
  3. 7

    Pour la conversion de Boolean string, il y a BoolToStr, qui a été autour depuis au moins Delphi 2007. Vous pouvez l'utiliser dans votre dernier exemple, comme ceci:

    TextVal := BoolToStr((fsBold in Can.Font.Style), True);

    Pour aller dans l'autre sens (string Boolean), vous auriez à faire une fonction réelle. Quelque chose comme cela devrait vous aider à démarrer:

    function StringToBoolean(const Value: string): Boolean;
var
  TempStr: string;
begin
  TempStr := UpperCase(Value);
  Result := (TempStr = 'T') or 
            (TempStr = `TRUE`) or 
            (TempStr = 'Y');
end;

BoolVal := StringToBoolean('True');     // True
BoolVal := StringToBoolean('False');    // False
BoolVal := StringToBoolean('tRuE');     // True

    Bien sûr, cela ne fonctionne pas si il y a des absurdités dans Value, mais...

    • Merci, mais Wouter réponse remplit effectivement dans l'espace vide de la procédure dans ma question parfaitement, mon "BoolToStrCase" est vraiment "IfThen"
    • +1 autre sur la modifier mais ne me laisse pas... j'ai construit ce déjà et il supporte les nombres entiers 0/1 ou 0/>0 ou 0/<>0 etc.
    • est TempStr juste pour la formation des doigts? ;o) - ok, maintenant, il fait sens :o)
    • Merci pour l'attraper. 🙂 Bien sûr, je l'ai utilisé en raison de la UpperCase, mais alors une erreur de frappe dans le code. Merci encore.
    • Merci. Je vais le laisser ici au cas où il permet à quelqu'un d'autre dans l'avenir.
    • ...Sans compter le fait que j'ai construit ce déjà, j'étais à la recherche d'une solution intégrée pour Delphi donc je n'ai pas toujours compter sur mon bibliothèques.
    • Il ya un tas de TryStrToBool etc fonctions de SysUtils. Ils travaillent à partir de deux tableaux de string: TrueBoolStrs: array of String; FalseBoolStrs: array of String;, avec les valeurs par défaut de 'True' et 'False'. Ils sont insensibles à la casse (par l'utilisation AnsiSameText)
    • Merci. Je vais devoir trouver le temps de regarder à travers SysUtils de nouveau. 🙂 J'essaie d'écrire des réponses génériques qui sont compatibles retour à D2007 lorsque cela est possible, et n'a pas remarqué que c'était XE2 balisés.
    • Il est D2007 - c'est ce que j'utilise en ce moment!
    • Le TrueBoolStrs/FalseBoolStrs sont présents dans D2006. Peut-être même plus tôt.

    InformationsquelleAutor Ken White
  4. 3

    Essayer un de ces. Les deux sont de manière plus rapide que par défaut les versions.

    type
 TBooleanWordType = (bwTrue, bwYes, bwOn, bwEnabled, bwSuccessful, bwOK, bwBinary);

 BooleanWord: array [Boolean, TBooleanWordType] of String =
  (
    ('False', 'No',  'Off', 'Disabled', 'Failed',     'Cancel', '0'),
    ('True',  'Yes', 'On',  'Enabled',  'Successful', 'Ok',     '1')
  );

function BoolToStr(Value: boolean; const BooleanWordType: TBooleanWordType = bwTrue): String; inline;
begin
   Result := BooleanWord[Value, BooleanWordType];
end;

function StrToBool(const S: String): Boolean; inline;
begin
  Result := False;
  case Length(S) of
    4: Result := (LowerCase(S) = 'true');
    5: Result := not (LowerCase(S) = 'false');
  end;
end;
    • Ce serait la conversion d'une chaîne en une valeur booléenne, mais je suis en train de faire le contraire, boolean, string.
    • Ah permettez-moi de modifier ma réponse 🙂 j'ai obtenu une solution pour que aswell.
    • Il y a déjà plus de réponses ici que j'ai besoin, j'ai du mal à croire qu'il ya encore une autre solution
    • Oui, il existe, et de manière plus souple 😉
    • La façon dont le StrToBool() la fonction est dès maintenant, vous pouvez supprimer l'ensemble de la 5 cas. Lorsque vous fournissez des "faux", il définit le résultat faux, mais c'est déjà false par défaut. Aussi, lorsque vous souhaitez appeler StrToBool ("xxxxx"), il va revenir true, tandis que les "xxxx" ou "xxxxxx" serait de retour faux. Je pense que quelque chose comme ce serait mieux ici: function StrToBool(const s:string):boolean; var b:TBooleanType; begin for b:=low(TbooleanWordType) to high(TbooleanWordType) do if SameText(BooleanWord[true,b],s) then Exit(True); Exit(False) end;
    • Cette réponse m'a aidé à résoudre un tout autre problème.

    InformationsquelleAutor Eric Santos
  5. 3

    Si vous êtes obtus code, voici une façon amusante de le faire (surtout que c'est une partie d'un plus grand Format de déclaration), mais attention, si vous avez plus d'arguments suivant (ou précédent), vous aurez à l'indice de l'argument suivant le booléen explicitement (vous l'a dit, il était obtus):

    Format('The value of value is %*:s', [Integer(value)+1, 'False', 'True']);

    Quiconque est pris à l'aide de cette dans le code de production doivent être sévèrement punis!

    InformationsquelleAutor Wes