StrtoInt, InttoStr それぞれの Boolean 版です

■ブール型から文字列に変換する
function BoolToString(Value: Boolean): string;
begin
   result := GetEnumName(TypeInfo(Boolean), Ord(Value));
end;

■文字列型からブール型に変換する
function StringToBool(Value: string): Boolean;
var
    Code: integer;
    iv:   integer;
begin
    if (CompareText(Value, 'False') = 0) then begin
        result := False;        { 文字列 偽 }
    end
    else if (CompareText(Value, 'True') = 0) then begin
        result := True;         { 文字列 真 }
    end
    else begin
        Val(Value, iv, Code);
        if (Code = 0) then begin
            if (iv = 0) then
                result := False { 数字の０ }
            else
                result := True; { 数字の０以外 }
        end
        else begin
            result := True;     { 変換失敗時 }
        end
    end;
end;

変換できない場合どうするかはこのみで(^^;)

 


Original document by いさやん        氏 ID:(YIB02642)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。