Einfach, aber nützlich. Manchmal braucht man den Wert eines Booleans als String (z.B. zur Sicherung). Seit Delphi 6 gibt es jedoch die Funktionen
BoolToStr und
StrToBool.
Delphi-Quellcode:
function BooleanToString(Value: Boolean): AnsiString;
begin
if Value then
Result := '1'
else
Result := '0';
end;
Alternativ auch:
Delphi-Quellcode:
function BooleanToString(Value: Boolean): AnsiString;
begin
Result := IntToStr(Integer(Value));
end;
function StringToBoolean(Value: AnsiString): Boolean;
begin
Result := StrToIntDef(Value, 0) <> 0;
end;
...
...
Von
Hagen stammt noch folgende Alternative:
Delphi-Quellcode:
function BooleanToString(Value: Boolean): String;
const
sBool: array[Boolean] of String = ('0', '1');
begin
Result := sBool[Value];
end;
[edit=Chakotay1308]Beitrag korrigiert/erweitert. Mfg, Chakotay1308[/edit]