为SpinEdit赋值

时间:2013-10-15 12:56:53

标签: delphi-7

我有一个名为 seVal 的TSpinEdit,其最小值为0,最大值为10.我需要为每个数字分配一个值,除了需要报告错误消息的0,以及然后在Label中显示该值。我没有对TSpinEdit这么多,所以我不熟悉任何与它们相关的编码。

1 个答案:

答案 0 :(得分:1)

case seVal.Value of
  0: Label1.Caption := ...;
  1: Label1.Caption := ...;
  2: Label1.Caption := ...;
  ...
end;

或者:

const
  LabelValues: array[0..10] of String = ('...', '...', ...);

Label1.Caption := LabelValues[seVal.Value];