不是问题的大问题
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'
为什么。如何使用分支语句