radix.pas

进制转换程序

{**********************************************************************************************
 *                   刀剑如梦软件创作室整理                                                   *
 *主页名称：Delphi编程驿站                                                                    *
 *本站的宗旨：让Delphi编程爱好者更好地进行技术交流与探讨。                                    *
 *主页地址：http://yckxzjj.vip.sina.com                                                       *
 *E-Mail地址：[e-mail]                                                                 *
 *QQ号码：20775028                                                                            *
 *栏目设置：                                                                                  *
 *    主栏目→程序人生、编程技巧、精品控件、实例源码、网友作品、技术交流、软件项目及好书推荐。*
 *    辅栏目→网站简介、网站导航、本站服务、网站更新、关于版主及友情链接。                    *
 *Delphi编程驿站，Delphi交流的空间站！网络中愿与您共同进步！我一直在努力！！！                *
 *Delphi编程驿站，以Delphi为主题的编程站点，明确的主题、一致的版面。                          *
 *本站点已获得万维品网“三星级”评定、闪光品网“精品站点”BEST认证评定                        *
 *及腾龙品网的“推荐站点”。                                                                  *
 **********************************************************************************************
}
unit Radix;

interface

uses
  Classes, SysUtils;

function StrToIntAsDec(var V: Cardinal; S: string): Boolean; forward;
function StrToIntAsHex(var V: Cardinal; S: string): Boolean; forward;
function StrToIntAsOct(var V: Cardinal; S: string): Boolean; forward;
function StrToIntAsBin(var V: Cardinal; S: string): Boolean; forward;

function IntToStrAsHex(var S: string; V: Cardinal): Boolean; forward;
function IntToStrAsOct(var S: string; V: Cardinal): Boolean; forward;
function IntToStrAsBin(var S: string; V: Cardinal): Boolean; forward;

function IsDecStr(S: string): Boolean; forward;
function IsHexStr(S: string): Boolean; forward;
function IsOctStr(S: string): Boolean; forward;
function IsBinStr(S: string): Boolean; forward;

function IsDecChar(C: Char): Boolean; forward;
function IsHexChar(C: Char): Boolean; forward;
function IsOctChar(C: Char): Boolean; forward;
function IsBinChar(C: Char): Boolean; forward;

function IsAlphaChar(C: Char): Boolean; forward;
function IsDigitChar(C: Char): Boolean; forward;

implementation

function StrToIntAsDec(var V: Cardinal; S: string): Boolean;
begin
  Result := IsDecStr(S);
  if not Result then Exit;

  V := StrToInt(S);
  Result := True;
end;

function StrToIntAsHex(var V: Cardinal; S: string): Boolean;
var
  i, j: Cardinal;
begin
  Result := IsHexStr(S);
  if not Result then Exit;

  V := 0;
  S := UpperCase(S);
  for i := 1 to Length(S) do
  begin
    if IsDigitChar(S[i]) then j := Ord(S[i]) - Ord('0')
    else j := Ord(S[i]) - Ord('A') + 10;
    V := (V shl 4) + j;
  end;
  Result := True;
end;

function StrToIntAsOct(var V: Cardinal; S: string): Boolean;
var
  i, j: Cardinal;
begin
  Result := IsOctStr(S);
  if not Result then Exit;

  V := 0;
  for i := 1 to Length(S) do
  begin
    j := Ord(S[i]) - Ord('0');
    V := (V shl 3) + j;
  end;
  Result := True;
end;

function StrToIntAsBin(var V: Cardinal; S: string): Boolean;
var
  i, j: Cardinal;
begin
  Result := IsBinStr(S);
  if not Result then Exit;

  V := 0;
  for i := 1 to Length(S) do
  begin
    j := Ord(S[i]) - Ord('0');
    V := (V shl 1) + j;
  end;
  Result := True;
end;

function IntToStrAsHex(var S: string; V: Cardinal): Boolean;
var
  i: Integer;
begin
  S := '';
  repeat
    i := V and $F;
    V := V shr 4;
    S := IntToHex(i, 1) + S;
  until V = 0;
  Result := True;
end;

function IntToStrAsOct(var S: string; V: Cardinal): Boolean;
var
  i: Integer;
begin
  S := '';
  repeat
    i := V and $7;
    V := V shr 3;
    S := IntToStr(i) + S;
  until V = 0;
  Result := True;
end;

function IntToStrAsBin(var S: string; V: Cardinal): Boolean;
var
  i: Integer;
begin
  S := '';
  repeat
    i := V and $1;
    V := V shr 1;
    S := IntToStr(i) + S;
  until V = 0;
  S := StringOfChar('0', 8 - Length(S)) + S;
  Result := True;
end;

function IsDecStr(S: string): Boolean;
var
  Int: Int64;
begin
  Result := True;
  try
    Int := StrToInt64(S);
  except
    Result := False;
  end;
end;

function IsHexStr(S: string): Boolean;
var
  i: Integer;
begin
  for i := 1 to Length(S) do
  begin
    if not IsHexChar(S[i]) then
    begin
      Result := False;
      Exit;
    end;
  end;
  Result := True;
end;

function IsOctStr(S: string): Boolean;
var
  i: Integer;
begin
  for i := 1 to Length(S) do
  begin
    if not IsOctChar(S[i]) then
    begin
      Result := False;
      Exit;
    end;
  end;
  Result := True;
end;

function IsBinStr(S: string): Boolean;
var
  i: Integer;
begin
  for i := 1 to Length(S) do
  begin
    if not IsBinChar(S[i]) then
    begin
      Result := False;
      Exit;
    end;
  end;
  Result := True;
end;

function IsDecChar(C: Char): Boolean;
begin
  Result := (C >= '0') and (C <= '9');
end;

function IsHexChar(C: Char): Boolean;
begin
  Result := (C >= '0') and (C <= '9') or
            (C >= 'A') and (C <= 'F') or
            (C >= 'a') and (C <= 'f');
end;

function IsOctChar(C: Char): Boolean;
begin
  Result := (C >= '0') and (C <= '7');
end;

function IsBinChar(C: Char): Boolean;
begin
  Result := (C >= '0') and (C <= '1');
end;

function IsAlphaChar(C: Char): Boolean;
begin
  Result := (C >= 'A') and (C <= 'Z') or
            (C >= 'a') and (C <= 'z');
end;

function IsDigitChar(C: Char): Boolean;
begin
  Result := (C >= '0') and (C <= '9');
end;

end.