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
@ -221,7 +221,7 @@ begin
exit;
end;
SetLength(ColNoSelected,NoVariables);
SetLength(ColNoSelected, NoVariables);
Corxy := 0.0;
Corxz := 0.0;
Coryz := 0.0;

View File

@ -353,9 +353,9 @@ var
xmin, xmax, ymin, ymax: Double;
begin
if ChartForm = nil then
ChartForm := TChartForm.Create(Application);
ChartForm.Clear;
ChartForm := TChartForm.Create(Application)
else
ChartForm.Clear;
// Titles
ChartForm.SetTitle('X vs. Y plot using file ' + OS3MainFrm.FileNameEdit.Text);
@ -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

@ -216,7 +216,7 @@ begin
SetLength(Freq,Nrows+1,Ncols+1);
SetLength(Prop,Nrows+1,Ncols+1);
SetLength(Expected,Nrows,Ncols);
SetLength(CellChi,Nrows,Ncols);
SetLength(CellChi, Nrows, Ncols);
for i := 1 to Nrows + 1 do
for j := 1 to Ncols + 1 do Freq[i-1,j-1] := 0;
RowLabels[Nrows] := 'Total';

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;