getrtn_error.txt

来自「使用Delphi 6.0开发用于控制空调的程序」· 文本 代码 · 共 44 行

function  GetRTN_Error(strRTN:string): string;
var
  iLen,iRTN:Integer;
begin
   iLen := Length(strRTN);
   if iLen <> 2 then
   begin
      Result := 'RTN错误：输入的代码错误';
      Exit;
   end;

   iRTN := StrToInt(strRTN[1])*16 + StrToInt(strRTN[2]);
   case iRTN of
    $00: Result := '1';
    $01:
      begin
         Result := 'RTN错误：VER错误！';
      end;
    $02:
        begin
          Result := 'RTN错误：CHKSUM错误！';
        end;
    $03:
        begin
          Result  := 'RTN错误：LCHKSUM错误！';
        end;
    $04:
        begin
          Result  := 'RTN错误：CID2错误！';
        end;
    $05:
        begin
          Result  := 'RTN错误：命令格式错误！';
        end;
    $06:
        begin
          Result  := 'RTN错误：无效数据！';
        end;
    else
        begin
          Result  := 'RTN错误：其他错误！';
        end;
     end;
end;