delphi的case of 问题。

Posted 2023-03-28

var
QQ:String;
begin
case Edit1.Text[1] of//取Edit1.Text的第一个字符
'A':begin
end;
'B':begin
end';
end;
可以这样用吗？

不可以!!!!
我记得delphi里的case里的条件只能用 数字，不能用字符或者字符串的 参考技术A 倒数第二个End后面的单引号去掉，其它的没问题，呵呵，其实用Delphi环境实际测试一下就知道了。 参考技术B 可以，下标超过长度后将返回空值。 但倒数第二个End后面的确实多了1个单引号。

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;

请问错在哪而？

参考技术A Delphi中不支持用字符串做为case的条件，你可以把S声明成char