下面这样的代码怎样在改写成pascal的呀？？

Question

// 短消息参数结构，编码/解码共用
// 其中，字符串以0结尾
typedef struct {
    char SCA[16];       // 短消息服务中心号码(SMSC地址)
    char TPA[16];       // 目标号码或回复号码(TP-DA或TP-RA)
    char TP_PID;        // 用户信息协议标识(TP-PID)
    char TP_DCS;        // 用户信息编码方式(TP-DCS)
    char TP_SCTS[16];   // 服务时间戳字符串(TP_SCTS), 接收时用到
    char TP_UD[161];    // 原始用户信息(编码前或解码后的TP-UD)
    char index;         // 短消息序号，在读取时用到
} SM_PARAM;
// 发送短消息
// pSrc: 源PDU参数指针
BOOL gsmSendMessage(const SM_PARAM* pSrc)
{
    int nPduLength;        // PDU串长度
    unsigned char nSmscLength;    // SMSC串长度
    int nLength;           // 串口收到的数据长度
    char cmd[16];          // 命令串
    char pdu[512];         // PDU串
    char ans[128];         // 应答串
    
    nPduLength = gsmEncodePdu(pSrc, pdu);    // 根据PDU参数，编码PDU串
    strcat(pdu, "\x01a");        // 以Ctrl-Z结束
    
    gsmString2Bytes(pdu, &nSmscLength, 2);    // 取PDU串中的SMSC信息长度
    nSmscLength++;        // 加上长度字节本身
    
    // 命令中的长度，不包括SMSC信息长度，以数据字节计
    sprintf(cmd, "AT+CMGS=%d\r", nPduLength / 2 - nSmscLength);    // 生成命令
    
    WriteComm(cmd, strlen(cmd));    // 先输出命令串
    
    nLength = ReadComm(ans, 128);   // 读应答数据
    
    // 根据能否找到"\r\n> "决定成功与否
    if(nLength == 4 && strncmp(ans, "\r\n> ", 4) == 0)
    {
        WriteComm(pdu, strlen(pdu));        // 得到肯定回答，继续输出PDU串
    
        nLength = ReadComm(ans, 128);       // 读应答数据
    
        // 根据能否找到"+CMS ERROR"决定成功与否
        if(nLength > 0 && strncmp(ans, "+CMS ERROR", 10) != 0)
        {
            return TRUE;
        }
    }
    
    return FALSE;
}
主要问题是c 和 pascal中的 char 在赋值上有很大的不同。
比如c中：
char ch；
ch=0x91；//正确
ch=‘a’；//正确但在delphi中：
ch：char；
ch：=$91；//类型不匹配
ch：='a'；//正确谢谢指教。

Answer 1

快点给分， 20 就行了等这 20 分我等了一上午， 知道为什么吗 +20 = Star
ch：char；
ch:=chr($91);
ch：='a'；//正确

Answer 2

// 可打印字符串转换为字节数据
// 如："C8329BFD0E01" --> {0xC8, 0x32, 0x9B, 0xFD, 0x0E, 0x01}
// pSrc: 源字符串指针
// pDst: 目标数据指针
// nSrcLength: 源字符串长度
// 返回: 目标数据长度
int gsmString2Bytes(const char* pSrc, unsigned char* pDst, int nSrcLength)
{
    for(int i=0; i<nSrcLength; i+=2)
    {
         // 输出高4位
         if(*pSrc>='0' && *pSrc<='9')  *pDst = (*pSrc - '0') << 4;
         else  *pDst = (*pSrc - 'A' + 10) << 4;         pSrc++;         // 输出低4位
         if(*pSrc>='0' && *pSrc<='9')  *pDst |= *pSrc - '0';
         else  *pDst |= *pSrc - 'A' + 10;
        
         pSrc++;
         pDst++;
    }    // 返回目标数据长度
    return nSrcLength / 2;
}这个我又不会改写成 pascal 的了，特别是// 输出高4位
         if(*pSrc>='0' && *pSrc<='9')  *pDst = (*pSrc - '0') << 4;
         else  *pDst = (*pSrc - 'A' + 10) << 4;这句。