delphi - variable - ¿Hay una manera más fácil de hacer conversiones booleanas?

tipos de datos fundamentales

Question

He usado este escenario muchas veces en casi todos mis proyectos, cuando estoy haciendo algún tipo de conversión de datos, cuando se trata de booleanos, un poco me pierdo cuando se trata de hacerlo simple. La siguiente declaración sobresale como un pulgar dolorido en todo mi código:

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

Me pregunto si hay una manera más fácil de realizar esta evaluación? Tal vez algún uso de la declaración del Case que no conozco? Mi implementación real es más compleja que solo StrVal pero consiste en devolver dos valores diferentes dependiendo de si es Verdadero o Falso. Por ejemplo, aquí hay un código real ...

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

Eso es solo para enfatizar en lo simple que estoy esperando. Me pregunto si puedo hacer algo como esto:

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

Estoy seguro de que no es un comando real, pero estoy buscando ese tipo de simplicidad en una sola línea.

Answer 1

¿Qué tal nadie ha oído hablar de una matriz indexada por boolean?

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'');

De hecho, ¡es lo que BoolToStr usa!

function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
const
  cSimpleBoolStrs: array [boolean] of String = (''0'', ''-1'');

Answer 2

En la unidad StrUtils , hay ifthen ()

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

Y para este caso específico incluso podrías usar:

StrVal := BoolToStr(BoolVal);

Answer 3

Para convertir Boolean a string, hay BoolToStr , que ha existido desde al menos Delphi 2007. Puedes usarlo en tu último ejemplo como este:

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

Para ir a la otra dirección (cadena a Boolean), tendrías que hacer una función real. Algo como esto debería ayudarte a comenzar:

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

Por supuesto, esto no funciona si hay Value en el Value , pero ...

Answer 4

Pruebe cualquiera de estos Ambos son mucho más rápidos que las versiones predeterminadas.

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;

Answer 5

Si te gusta el código obtuso, esta es una forma divertida de hacerlo (especialmente si es parte de una declaración de Formato más grande), pero ten cuidado si tienes más argumentos a continuación (o anteriores), tendrás que indexar el argumento siguiendo la boolean explícitamente (te dije que era obtuso):

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

¡Cualquier persona atrapada usando este código de producción debe ser tratada severamente!