关于case语句的问题，请各位大侠帮忙，谢谢！！

Question

我现在有一个函数：
function AnalyseEvent(nEventID:integer):string;
var
  s:string;
begin
    case nEventID of
      0x00:s:='读头1开门';
      0x01:s:='读头1读卡错误';
      0x02:s:='尝试报警';
      0x03:s:='门磁状态报警';
      0x04:s:='保留';
      0x05:s:='出门按钮开门';
      0x06:s:='防撬报警';
      0x07:s:='胁迫报警';
      0x08:s:='APB报警';
      0x09:s:='读头2开门';
      0x0A:s:='读头2读卡错误';
      0x0B:s:='非法时段刷卡';
      0x0C:s:='非法刷卡';
      0x0D:s:='保留';
      0x0E:s:='保留';
      0x0F:s:='保留';
    else
      s:='保留';
    end;
end;
编译的时候总是报错：[Error] CommonUnit.pas(1974): ',' or ':' expected but identifier 'x00' found和[Error] CommonUnit.pas(1975): Duplicate case label
0x00到0x0F这些必须是16进制的，请问该如何解决啊？

Answer 1

Delphi的16进制不是这么写的，把0x改成$