BooleanToString und StringToBoolean

[Muetze1]

Ok, ich will dann auch :

Delphi-Quellcode:

Function BoolToString(Const ABool: Boolean): String;
Const
  coBoolValues : Array[Boolean] of String = ( 'false', 'true' );
Begin
  Result := coBoolValues[ABool];
End;

Function StringToBool(Const AString: String): Boolean;
Begin
  Result := AnsiSameText(AString, 'true');
End;