delphi case..of 问题
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi case..of 问题相关的知识，希望对你有一定的参考价值。
procedure TForm5.BitBtn2Click(Sender: TObject);
Var
a:double;
b:double;
c:double;
s:string;
begin
a:=StrToFloat(Edit3.Text);
b:=StrToFloat(Edit4.Text);
s:=Label3.Caption;
Case s of <----[错误] Unit5.pas(85): Incompatible types
'+': <----[错误] Unit5.pas(86): Incompatible types: 'Integer' and 'Char'
begin
c:=a+b;
Edit5.Text:=FloatToStr(c);
end;
'-': <----[错误] Unit5.pas(91): Incompatible types: 'Integer' and 'Char'
begin
c:=a-b;
Edit5.Text:=FloatToStr(c);
end;
'×': <----[错误] Unit5.pas(96): Incompatible types: 'Integer' and 'String'
begin
c:=a*b;
Edit5.Text:=FloatToStr(c);
end;
'÷': <----[错误] Unit5.pas(96): Incompatible types: 'Integer' and 'String'
begin
c:=a/b;
Edit5.Text:=FloatToStr(c);
end;
end;
end;
请问错在哪而？
以上是关于delphi case..of 问题的主要内容，如果未能解决你的问题，请参考以下文章