Czy istnieje łatwiejszy sposób na konwersję wartości logicznych?

Question

Użyłem tego scenariusza wiele razy w prawie wszystkich moich projektach, kiedy robię jakąś konwersję danych, jeśli chodzi o booleans, trochę się gubię, jeśli chodzi o upraszczanie. To oświadczenie poniżej wystaje jak bolesny kciuk po całym moim kodzie:

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

Zastanawiam się, czy istnieje łatwiejszy sposób przeprowadzenia tej oceny? Być może jakieś użycie oświadczenia Case, o którym nie wiem? Moja aktualna implementacja jest bardziej skomplikowana niż tylko StrVal, ale polega na zwrocie dwóch różnych wartości w zależności od tego, czy jest to prawda, czy fałsz. Na przykład, oto prawdziwy kod ...

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

To tylko podkreślenie, jak prosto mam nadzieję. Zastanawiam się, czy mogę zrobić coś na wzór tego:

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

Jestem pewien, że nie jest prawdziwy poleceń, ale szukam dla tego typu uproszczenia w jednej linii.

Answer 1

W jednostce StrUtils, tam jest ifthen()

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

I w tym konkretnym przypadku można nawet użyć:

StrVal := BoolToStr(BoolVal); 

Answer 2

Do konwersji Boolean ciąg, nie BoolToStr, który został od co najmniej Delphi 2007. Możesz go użyć w swoim ostatnim przykładzie:

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

Aby przejść w innym kierunku (ciąg do Boolean), musisz wykonać rzeczywistą funkcję. Coś jak to powinno Ci zacząć:

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 

Oczywiście, to nie zadziała, jeśli nie ma sensu w Value, ale ...

Answer 3

Ow, dalej nikt nigdy nie słyszał o tablicy indeksowanej przez logiczną ?

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

W rzeczywistości to samo wykorzystuje BoolToStr!

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

Answer 4

Wypróbuj jedną z nich. Oba są znacznie szybsze niż wersje domyślne.

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

Jeśli jesteś w kodzie rozwarty, tutaj jest to świetny sposób, aby to zrobić (szczególnie jest to część większego rachunku Format), ale należy zachować ostrożność, jeśli masz więcej argumentów następujące (lub wcześniej), to będzie mają indeksować argument, zgodnie z logiczną jawnie (mówiłem, że był rozwarty):

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

Każdy złapany na używaniu tego w kodzie produkcji powinny być traktowane poważnie!