Boolean Problem

[sakura]

Das es genug Situationen gibt, wo man es braucht, hier mal meine Funktionen dazu.

Delphi-Quellcode:

function BoolToStr(Value: Boolean): String;
begin
  Result := IntToStr(Integer(Value));
end;

function StrToBool(Value: String): Boolean;
begin
  Result := StrToIntDef(Value, 0) <> 0;
end;

......