紧急求救！关于case！

Question

我是学c出身的，可下面这段代码在delphi上就是实现不了，请问我该怎么改！
 t:String;
  a:integer=0; 
  b:integer=0;
  c:integer=0;
  d:integer=0; case  (a. b .c .d)   of
     (1,0,1,0):t:='aaaaaaaaaaaaaa';break;
     (1,1,1,0):t:='bbbbbbbbbbbbb'；break;
     (1,1,1,1):t:='ccccccccccccc'；break;
     (0,1,1,1):t:='dddddddddddddd';break;
     (0,1,1,0):t:='eeeeeeeeeeeeee';break;
     (0,1,0,1):t:='ffffffffffffff';break;
     end;

Answer 1

你是想转化为十六进制码吧？
Function IntTOHex(s:String):String;
var
  t,b:string;
  a:integer;
begin
  b:=确定值;
  a:=StrToInt(b);
  case a of
    1010: t:='aa'
    1110: t:='bb'
    1111: t:='cc'
    0111: t:='dd'
    0110: t:='ee'
    0101: t:='ff'
  end; 
  result:=t;
end;