如何使用ONLY TLabel NOT TProgressBar在Turbo Delphi中创建进度条

Question

所以这里的逻辑

为1%="|" 在TLabel和一个"|" 我们需要循环10次

所以达到100%= 100倍"|" 我们需要1000次循环

你可以帮我代码吗？

Answer 1

也许你可以使用StringOfChar函数？

像这样的东西:

    procedure TForm1.Button1Click(Sender: TObject);
    var
      X: Integer;
      Total: Integer;
      Percent: Integer;
    begin
      Total := 1000;
      for X := 1 to Total do
      begin
        Sleep(100);
        Percent := (X * 100) div Total;
        Label1.Caption := StringOfChar('|', Percent) + IntToStr(Percent) + '%';
        Label1.Repaint;
      end;
    end;