| Class TPiForm (unit main) |
TForm
| Constructors |
| Functions |
procedure AbortBitBtnClick(Sender: TObject);
procedure CloseBitBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure OkBitBtnClick(Sender: TObject);
procedure PiTimerTimer(Sender: TObject);| Properties |
| Events |
| Variables |
AbortBitBtn : TBitBtn;
CalculatingLabel : TLabel;
CalculatingNameLabel : TLabel;
CloseBitBtn : TBitBtn;
FinishTimeLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
OkBitBtn : TBitBtn;
PiProgressBar : TProgressBar;
PiTimer : TTimer;
ProcessNameLabel : TLabel;
Start18Label : TLabel;
Start239Label : TLabel;
Start57Label : TLabel;
StartNameLabel : TLabel;
StartPILabel : TLabel;| Constructors |
| Functions |
procedure AbortBitBtnClick(Sender: TObject);
procedure CloseBitBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);Could someone tell my why I get an exception when I un-comment the following line. I would have assumed that the Free was necessary? calculate_pi.Free;
procedure OkBitBtnClick(Sender: TObject);
procedure PiTimerTimer(Sender: TObject);| Properties |
| Events |
| Variables |
AbortBitBtn : TBitBtn;
CalculatingLabel : TLabel;
CalculatingNameLabel : TLabel;
CloseBitBtn : TBitBtn;
FinishTimeLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
OkBitBtn : TBitBtn;
PiProgressBar : TProgressBar;
PiTimer : TTimer;
ProcessNameLabel : TLabel;
Start18Label : TLabel;
Start239Label : TLabel;
Start57Label : TLabel;
StartNameLabel : TLabel;
StartPILabel : TLabel;