Char chTemp;
[c] chTemp = 0x0000000a + (chTemp - 'A');
[c] uVal |= (chTemp << (4 * (nLen - 1 - nCnt)));
[pascal] chTemp := $0000000a - Chr( Ord(chTemp) - Ord('A') );
[pascal] uVal := uVal or ( chTemp shl (4 * (nLen -1 - nCnt)));
파스칼로 변경할때 위 코드 에러가 나네요.
도움바랍니다. 에궁 델파이가 타잎정의가 엄격한것 간네요.
chTemp가 Char형이므로 형변환하세요...
chTemp := Char($0000000a + (Ord(chTemp) - Ord('A')));
^^ 항상 즐코하세요...