不是问题的大问题

Question

procedure TForm1.S1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
var
  MyColor : string;
      x: integer;begin
 MyColor:=s1.Socket.ReceiveText(); case MyColor of
  'Red': X := 1;
  'Green': X := 2;
  'Blue': X := 3;
 else
  showmessage(MyColor);
  end;
end;
[Error] Unit1.pas(37): Ordinal type required
[Error] Unit1.pas(38): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(39): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(40): Incompatible types: 'Integer' and 'String'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
为什么。如何使用分支语句

Answer 1

MyColor 的类型必须为integer