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;