delphi 中的CASE语句

Posted 2023-03-28

我在单元里定义了一个过程。
在窗体中引用的时候。想让他做一个判断

过程名是pctab 参数是1-20

我想让他的pctab(这里的值等于combobox.ItemIndex+1);

这样用CASE要怎么写？

参考技术A case
i
of

1..100:

begin

MessageBox(handle,'1到100之间','1~100',0)

end;
end;
--你是否漏了这个END
上面的代码测试通过的~ 参考技术B 少了1个end
procedure
TForm1.RadioGroup1Click(Sender:
TObject);
//对齐设置
begin
case
RadioGroup1.ItemIndex
of
0:Memo1.Alignment:=taLeftJustify;
1:Memo1.Alignment:=taCenter;
2:Memo1.Alignment:=taRightJustify;
end;
end;
end. 参考技术C procedure pctab(value:integer);
begin
case value of
1:xxxx;
2:xxxx;
3:xxxx;
4:xxxx;
5:xxxx;
6:xxxx;
end;
end;本回答被提问者采纳