Welcome
Guest
, you are in:
<root>
•
Anmelden
CP Wiki
Navigation
¶
CP Solutions
Startseite
domizil+
Startseite
Administration
Administration
Neue Seite
Alle Seiten
Kategorien
Navigations-Pfade
Datei Manager
Neuer Benutzer
Suche im wiki
»
Zurück
BoolToStr
Modified on 15/01/2009 16:28
by CPABED
Categorized as
Plattform
'''Syntax:'''{BR} {{{{'''function''' BoolToStr(Value: Boolean): string;}}}}{BR} {BR} '''Beschreibung:'''{BR} {BR} Die Funktion konvertiert einen booleschen Wert in einen String.{BR} 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’) {BR} '''Beispiel:'''{BR} {BR} <code pascal> 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; </code>
ScrewTurn Wiki
version 3.0.1.400. Some of the icons created by
FamFamFam
.