StringToBoolean und BooleanToString

[sakura]

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]