if...then...else

Question

if 3 in edit1.Text
    then
     showmessage('3在编辑筐里')
     else
     showmessage('3不在编辑筐里');
为什么会报
[Error] Unit1.pas(30): Operator not applicable to this operand type

Answer 1

没有3 in Edit1.text这样的！你需要的是if Pos('3', Edit1.text)>0 thenIn操作只对整数和枚举有效的！http://lysoft.7u7.net

Answer 2

in操作符：
in membership ordinal, set Boolean A in Set1应为set 类型才行，这里是个String ，类型不匹配，可以下面这样
procedure TForm1.Button1Click(Sender: TObject);
begin
    if Pos('3',Edit1.Text)>0 then
        showmessage('3在编辑筐里')
    else
        showmessage('3不在编辑筐里');
end;

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
begin
    if pos('3',edit1.Text)<>0 then
    begin
        showmessage('In');
    end
    else
    begin
        showmessage('Out');
    end;
end;