unit InverseZUnit; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; type { TInversezForm } TInversezForm = class(TForm) Bevel1: TBevel; CancelBtn: TButton; ComputeBtn: TButton; Panel1: TPanel; ResetBtn: TButton; ReturnBtn: TButton; ZEdit: TEdit; Label2: TLabel; ProbEdit: TEdit; Label1: TLabel; procedure ComputeBtnClick(Sender: TObject); procedure FormActivate(Sender: TObject); procedure ResetBtnClick(Sender: TObject); private { private declarations } public { public declarations } end; var InversezForm: TInversezForm; implementation {$R *.lfm} uses Math, MathUnit, Utils; { TInversezForm } procedure TInversezForm.ResetBtnClick(Sender: TObject); begin ProbEdit.Text := ''; ZEdit.Text := ''; end; procedure TInversezForm.ComputeBtnClick(Sender: TObject); var prob, zScore: double; begin if not MyTryStrToFloat(ProbEdit.Text, prob) then begin ProbEdit.SetFocus; ErrorMsg('No valid number.'); exit; end; zScore := InverseNormalDist(prob); ZEdit.Text := Format('%6.4f', [zScore]); end; procedure TInversezForm.FormActivate(Sender: TObject); var w: Integer; begin w := MaxValue([CancelBtn.Width, ResetBtn.Width, ComputeBtn.Width, ReturnBtn.Width]); CancelBtn.Constraints.MinWidth := w; ResetBtn.Constraints.MinWidth := w; ComputeBtn.Constraints.MinWidth := w; ReturnBtn.Constraints.MinWidth := w; end; end.