Question

delphi 中的CASE语句

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

过程名是pctab 参数是1-20

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

这样用CASE要怎么写？

Answer 1

case
i
of

1..100:

begin

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

end;
end;
--你是否漏了这个END
上面的晌漏手代码测试通搜哗过的~

Answer 2

少了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.

Answer 3

procedure pctab(value:integer);
begin
case value of
1:xxxx;
2:xxxx;
3:xxxx;
4:xxxx;
5:xxxx;
6:xxxx;
end;
end;