Question

so here the logic

for 1%=”|” in the TLabel and for one “|” we need 10 times looping

so to reach 100%= 100 times “|” we need 1000 times looping

can you help me with the code?

Answer 1

Perhaps you could use the StringOfChar function?

Something like this:

    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;