BoolToStr

Syntax:

function BoolToStr(Value: Boolean): string;

Beschreibung:

Die Funktion konvertiert einen booleschen Wert in einen String.
BoolToStr konvertiert den angegebenen Booleschen Wert folgendermaßen in einen String:

Wert von B Wert von UseBoolStrs Wert des Rückgabe-Strings

true false ‘-1’ true true Der erste String in TrueBoolStrs (Standardwert ‘TRUE’) false false ‘0’ false true Der erste String in FalseBoolStrs (Standardwert ‘FALSE’)
Beispiel:


procedure TForm1.ApplicationEvents1SettingChange(Sender: TObject; Flag: Integer; const Section: string; var Result: Integer);

begin
  Memo1.Lines.BeginUpdate;
  try
    Memo1.Lines.Add(Format('Section  = %s', Section));
    Memo1.Lines.Add(Format('Flags  = %.8x', Flag));
    if AnsiSameStr(Section, 'intl') then
    with SysLocale do
    begin
      Memo1.Lines.Add(Format('DefaultLCID  = %.8x', DefaultLCID));
      Memo1.Lines.Add(Format('PriLangID  = %.8x', PriLangID));
      Memo1.Lines.Add(Format('SubLangID  = %.8x', SubLangID));

      Memo1.Lines.Add(Format('FarEast  = %s', BoolToStr(FarEast, True)));
      Memo1.Lines.Add(Format('MiddleEast  = %s', BoolToStr(MiddleEast, True)));
    end;
    Memo1.Lines.Add('');
  finally
    Memo1.Lines.EndUpdate;
  end;
end;