delphi BoolToStr 和 StrToBool

function BoolToStr(Val : Boolean): String;

begin

if val = True then

result := 'True'// or 'Yes' or '1'

else

result := 'False';// or 'No' or '0'

end;

function StrToBool(Val : String) :Boolean;

begin

if Val = 'True' then // or 'Yes' or '1'

result := True

else // val = 'False' or No' or '0' or any String

Result := false;

end;