radix.pas

s7comm.rar 西门子与pc通讯程序

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.