delphi_Case...Of语句使用？

Posted 2023-03-28

delphi_Case...Of语句使用？？

怎么使用啊，给个例程，最好详细说明！40分！

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; 参考技术A 如果只是判断是否为真的话 那就应该用 if(True) ..else..
而case..of 是个分支判断 对不同的情况做分别的处理
他是用来简化 if..else if.. else if ..这种情况的