delphi_Case...Of语句使用?
delphi_Case...Of语句使用??怎么使用啊,给个例程,最好详细说明!40分!
追问:我写了个程序,想加入反调试功能,才想起来 case。。of语句。
如果我想用 case..of 判断 是否为真,如果不真的话,就else ShowMessage('Error')
应该怎么实现?麻烦了,谢谢!
追问:我写了个程序,想加入反调试功能,才想起来 case。。of语句。
如果我想用 case..of 判断 是否为真,如果不真的话,就else ShowMessage('Error')
应该怎么实现?麻烦了,谢谢!
答案:var
i : integer;
begin
i := StrToInt(Edit1.Text);
case i of
1: Memo1.Lines.Add ('你输入了1');
2: Memo1.Lines.Add('你输入了2')
3: Memo1.Lines.Add('你输入了3');
end;如果只是判断是否为真的话 那就应该用 if(True) ..else..
而case..of 是个分支判断 对不同的情况做分别的处理
他是用来简化 if..else if.. else if ..这种情况的