Delphi 7 - 如何将整数转换为字符串

Question

我需要我的 Label 来读取进度条的百分比。例如，如果进度条在 13%，我需要我的 Label 显示 13，如果它在 76%，我需要它显示 76。

Label1.Caption := ...

我该怎么办？

Answer 1

听起来你只是在问如何将整数转换为字符串。为此使用 IntToStr。例如，

Label1.Caption := IntToStr(ProgressBar1.Position);

这假设 MinValue 是 0 并且 MaxValue 是 100。否则百分比的计算将是：

Percent := MulDiv(
  ProgressBar1.Position - ProgressBar1.MinValue,
  100,
  ProgressBar1.MaxValue - ProgressBar1.MinValue
);

Delphi 7 - How to convert an Integer to a String