Прогресс бар помогите привязать к циклу (Delphi 7)
Простая программа для вычисления числа пи. Компьютер в ожидании при вычислении, хочу заполнить время прогресс баром для наглядности процесса. вот код, что добавить надо?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
ProgressBar1: TProgressBar;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
pi:real; // вычисляемое значение ПИ
t:real; // точность вычисления
n:integer; // номер члена ряда
elem:real; // значение члена ряда
i,proc,max:integer;
begin
pi:=0;
n:=1;
t:=StrToFloat(edit1.text);
elem:=1; // чтобы начать цикл
max:=n;
while elem >= t do
begin
elem:=1/(2*n-1);
if n MOD 2 = 0
then pi:=pi-elem
else pi:=pi+elem;
n:=n+1;
max:=n
end;
pi:=pi*4;
label1.caption:= 'ПИ равно '+ FloatToStr(pi) + #13
+ 'Просуммировано '+IntTostr(n)+' членов ряда. ';
end;
end.