LazStats: Less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7631 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-08-23 14:31:27 +00:00
parent db4a9f929b
commit 2d32856cbc
6 changed files with 12 additions and 9 deletions

View File

@ -198,6 +198,7 @@ end;
procedure TTwoCorrsFrm.ComputeBtnClick(Sender: TObject);
var
lReport: TStrings;
Corxy, Corxz, Coryz, Cor1, Cor2, alpha, tvalue, df1, df2: double;
CorDif, zOne, zTwo, zDif, StdErr, zValue, zprobability: double;
UCL, LCL, ztest, ConfLevel, tprobability, ttest: double;
@ -208,10 +209,9 @@ var
SSize1, SSize2, SSize, v1, v2, v3, grp, ncases, NoSelected: integer;
min, max, grpval, ncases1, ncases2, i: integer;
cellstring: string;
ColNoSelected: IntDyneVec;
msg: String;
C: TWinControl;
lReport: TStrings;
ColNoSelected: IntDyneVec = nil;
begin
if not Validate(msg, C) then
begin

View File

@ -353,8 +353,8 @@ var
xmin, xmax, ymin, ymax: Double;
begin
if ChartForm = nil then
ChartForm := TChartForm.Create(Application);
ChartForm := TChartForm.Create(Application)
else
ChartForm.Clear;
// Titles
@ -376,6 +376,7 @@ begin
if ConfChk.Checked then
ChartForm.PlotXY(ptLines, XPoints, LowConf, 'Lower confidence band', clRed);
ChartForm.Chart.Prepare;
ChartForm.GetXRange(xmin, xmax, false);
ChartForm.GetYRange(ymin, ymax, false);

View File

@ -51,7 +51,7 @@ type
procedure InBtnClick(Sender: TObject);
procedure OutBtnClick(Sender: TObject);
procedure ResetBtnClick(Sender: TObject);
procedure VarListSelectionChange(Sender: TObject; User: boolean);
procedure VarListSelectionChange(Sender: TObject; {%H-}User: boolean);
private
{ private declarations }
FAutoSized: boolean;

View File

@ -50,7 +50,7 @@ type
procedure InBtnClick(Sender: TObject);
procedure OutBtnClick(Sender: TObject);
procedure ResetBtnClick(Sender: TObject);
procedure VarListSelectionChange(Sender: TObject; User: boolean);
procedure VarListSelectionChange(Sender: TObject; {%H-}User: boolean);
private
{ private declarations }
FAutoSized: Boolean;

View File

@ -524,7 +524,9 @@ end;
procedure TOS3MainFrm.FormCreate(Sender: TObject);
var
helpfn: String;
{$IFNDEF USE_EXTERNAL_HELP_VIEWER}
lhelpfn: String;
{$ENDIF}
begin
// Reduce ultra-wide width of Inputbox windows
cInputQueryEditSizePercents := 0;