1. 개발/실행 플랫폼

(1) OS : Windows 7

(2) 개발툴 : Delphi 2010

(3) 사용 Database :

2. 개발 중인 프로그램

3. 질문 내용

안녕하세요.

고민고민 하다가 잘 안되서 질문 드립니다.

MODBUS RTU 프로그램을 하고 있는데요.

일단 국번은 04, 04: INPUT REGISTER, 시작번지 0, 길이 1 입니다.

//----- CRC-16 Check -------------------------------------------
function GetCRC16(msg: PChar; iLength: Integer): Word;
var
  i, j          : integer ;
  crc, Tembyte  : Word ;
begin
  crc := $FFFF ;
  for i := 0 to iLength-1 do
  begin
    crc := (crc XOR integer(msg[i])) ;
    for j:= 0 to 7 do
    begin
      Tembyte :=(crc and $FF) ;
      if (Tembyte mod $02) > 0 then
        crc := (crc shr 1) XOR $A001
      else
        crc := (crc shr 1) ;
    end;
  end;
  result := crc ;
end;
//----- CRC-16 CHECK -------------------------------------------
procedure TFMain.CRC16_Check;
var
  Len     : Integer ;
  lcCRC   : PChar ;
  lWCRC   : Word ;
begin
  Len   := Length(grCOM.Comm) ;    //-- grCOM.Comm = String 형
  lcCRC := PChar(grCOM.Comm) ;
  lWCRC := GetCRC16(lcCRC, Len) ;
  gbCRCHi := lWCRC and $FF ;        //-- gbCRCHi = Byte 형 (CRC 상위단)
  gbCRCLo := lWCRC shr 8 ;           //-- gbCRCLoi = Byte 형 (CRC 하위단)
end;

grCOM.Comm := #4#4#0#0#0#1 ;  이렇게 됩니다.

이것을 function GetCRC16을 하면 40753(9F31) 값이 리턴되서 옵니다.

이것을 다시 상위단과 하위단으로 구분하기 위하여  gbCRCHi := lWCRC and $FF, gbCRCLo := lWCRC shr 8 와 같이 하였습니다.

그러면 gbCRCHi := 49 (Hex:31), gbCRCLo := 159 (Hex:9F)가 됩니다.

그리고, grCOM.Comm := grCOM.Comm + Char(gbCRCHi) + Char(gbCRCLo) ; 해서 문자를 합쳐 주었는데.

제가 원한건

grCOM.Comm := #4#4#0#0#0#1#$31#$9F ; 인데

결과를 보면

grCOM.Comm := #4#4#0#0#0#1#$31#$009F ; 으로 나옵니다.

왜 Byte 형 159(9F)을  Char형으로 변환하면 #$009F 가 될까요??? (이유 좀 알고 싶어요)

또, Char형으로 #$9F 가 되게 하는 방법을 알고 싶습니다.