case语句写法,错误信息为 Constant expression expected,要如何修改

Question

Var
BagOffsetType1,BagOffsetType2:DWORD;
Var
  i,BagNum,BagBaseAddr:DWORD;
  BagOffsetType1,BagOffsetType2:DWORD;
  BagTempAddr,BagType:PDWORD;
begin
  try
  asm
    pushad
    mov ecx,GameBase
    mov ecx,[ecx]
    mov ecx,[ecx+$1C]
    mov ecx,[ecx+$20]
    mov ecx,[ecx+$BC8]
    mov edx,[ecx+$14]
    mov BagNum,edx
    mov ecx,[ecx+$10]
    mov BagBaseAddr,ecx
    popad
  end;
  self.Label29.Caption:=inttostr(BagNum);
  for i:=1 to BagNum do
    begin
      BagTempAddr:=Pointer(BagBaseAddr);
      BagBaseAddr:=BagBaseAddr+4;
      if BagTempAddr^<>0 then
        begin
          BagType:=Pointer(BagTempAddr^+$4);
          Case BagType^ of
            8,9,23:
              BagOffsetType1:=$4C;
              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected
            3,0:
              BagOffsetType1:=$D4;
              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected
            29,17:
              BagOffsetType1:=$A4;
              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected
            20,31,27,18,13:
              BagOffsetType1:=$44;
              BagOffsetType2:=$4;//显示错误 错误信息为 Constant expression expected
            6:
              BagOffsetType1:=$C4;
              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected
            26:
              BagOffsetType1:=$98;
              BagOffsetType2:=$4;//显示错误 错误信息为 Constant expression expected
            11:
              BagOffsetType1:=$44;
              BagOffsetType2:=$8;//显示错误 错误信息为 Constant expression expected
            2:
              BagOffsetType1:=$C0;
              BagOffsetType2:=$8;//显示错误 错误信息为 Constant expression expected
            15:
              BagOffsetType1:=$DC;
              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected
            else
              BagOffsetType1:=$3C;
              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected
        end;
    end;
  except end;
end;常量多了~怎么办~这个要如何赋值呢?要如何处理

Answer 1

语句中添加
           8,9,23:
            begin
              BagOffsetType1:=$4C;
              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected
            end;

Answer 2

解决了，少begin...end，还有啥问题

Answer 3

我看的就少了begin end 果真如此