delphi-7 - 为 SpinEdit 赋值

Question

我有一个名为seVal的 TSpinEdit ，它的最小值为 0，最大值为 10。我需要为每个数字分配一个值，除了需要报告错误消息的 0，然后在标签中显示该值。我对 TSpinEdit 没有太多了解，所以与它们有关的任何编码对我来说都不熟悉。

Answer 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];