pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7897 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-22 18:49:28 +00:00
parent 9da0a4334a
commit 29721742a0
23 changed files with 39 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
applications/lazstats/source/forms/analysis/comparisons/abcnestedunit.pas
View File

@ -8,6 +8,7 @@
unit ABCNestedUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface

1
applications/lazstats/source/forms/analysis/comparisons/abranovaunit.pas
View File

@ -4,6 +4,7 @@ unit ABRANOVAUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface
uses

9
applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.lfm
View File

@ -226,16 +226,15 @@ inherited AxSAnovaForm: TAxSAnovaForm
inherited PageControl: TPageControl
Height = 397
Width = 457
TabIndex = 2
inherited ReportPage: TTabSheet
Caption = 'ANOVA Results'
end
object PosthocPage: TTabSheet[1]
Caption = 'Post-Hoc'
inherited ChartPage: TTabSheet
Caption = 'Plots'
TabVisible = False
end
inherited ChartPage: TTabSheet[2]
Caption = 'Plots'
object PosthocPage: TTabSheet[2]
Caption = 'Post-Hoc'
TabVisible = False
end
end

3
applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.pas
View File

@ -3,13 +3,14 @@
unit AxSANOVAUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, ExtCtrls, ComCtrls, TAStyles,
MainUnit, Globals, DataProcs, ReportFrameUnit, BasicStatsReportAndChartFormUnit;
MainUnit, Globals, ReportFrameUnit, BasicStatsReportAndChartFormUnit;
type

4
applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas
View File

@ -3,6 +3,7 @@
unit BlkANOVAUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface
@ -175,9 +176,6 @@ const
{ TBlksAnovaForm }
constructor TBlksAnovaForm.Create(AOwner: TComponent);
var
panel: TPanel;
lbl: TLabel;
begin
inherited;

1
applications/lazstats/source/forms/analysis/comparisons/bnestaunit.pas
View File

@ -7,6 +7,7 @@
unit BNestAUnit;
{$MODE objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface

1
applications/lazstats/source/forms/analysis/comparisons/withinanovaunit.pas
View File

@ -3,6 +3,7 @@
unit WithinANOVAUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface

2
applications/lazstats/source/forms/analysis/correlation/canonunit.pas
View File

@ -167,7 +167,7 @@ var
root_df: IntDyneVec = nil;
a_vars: IntDyneVec = nil;
b_vars: IntDyneVec = nil;
selected : IntDyneVec;
selected : IntDyneVec = nil;
RowLabels: StrDyneVec = nil;
ColLabels: StrDyneVec = nil;
CanLabels: StrDyneVec = nil;

1
applications/lazstats/source/forms/analysis/descriptive/boxplotunit.pas
View File

@ -3,6 +3,7 @@
unit BoxPlotUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface

3
applications/lazstats/source/forms/analysis/multiple_regression/coxregunit.pas
View File

@ -146,7 +146,6 @@ var
s0 : double;
StatI : double;
Sf : double;
RowLabels, ColLabels : StrDyneVec;
CSq : double; // chi square statistic
prob : double; // probability of chi square
SurvT : DblDyneVec = nil;
@ -161,6 +160,8 @@ var
SD : DblDyneVec = nil;
SE : DblDyneVec = nil;
x : DblDyneVec = nil; // data matrix for independent variables
RowLabels : StrDyneVec = nil;
ColLabels : StrDyneVec;
Lo95 : double;
Hi95 : double;
d : double;

2
applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.lfm
View File

@ -13,7 +13,7 @@ object CorrespondenceForm: TCorrespondenceForm
OnCreate = FormCreate
OnShow = ResetBtnClick
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
LCLVersion = '2.0.10.0'
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner

2
applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.pas
View File

@ -47,7 +47,7 @@ type
ColOut: TBitBtn;
VarList: TListBox;
procedure ColInClick(Sender: TObject);
procedure ColListSelectionChange(Sender: TObject; User: boolean);
procedure ColListSelectionChange(Sender: TObject; {%H-}User: boolean);
procedure ColOutClick(Sender: TObject);
procedure ComputeBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);

1
applications/lazstats/source/forms/analysis/multivariate/hierarchunit.pas
View File

@ -3,6 +3,7 @@
unit HierarchUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface

1
applications/lazstats/source/forms/analysis/nonparametric/riditunit.pas
View File

@ -1,6 +1,7 @@
unit RIDITUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface

1
applications/lazstats/source/forms/misc/basicstatsparamsformunit.pas
View File

@ -1,6 +1,7 @@
unit BasicStatsParamsFormUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface

2
applications/lazstats/source/forms/misc/blankfrmunit.pas
View File

@ -53,7 +53,7 @@ procedure TBlankFrm.FormActivate(Sender: TObject);
var
w: Integer;
begin
w := MaxValue([SaveBtn.Width, PrintBtn.Width, CloseBtn.Width]);
w := {%H-}MaxValue([SaveBtn.Width, PrintBtn.Width, CloseBtn.Width]);
SaveBtn.Constraints.MinWidth := w;
PrintBtn.Constraints.MinWidth := w;
CloseBtn.Constraints.MinWidth := w;

1
applications/lazstats/source/forms/simulations/corsimunit.pas
View File

@ -1,6 +1,7 @@
unit CorSimUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface

1
applications/lazstats/source/forms/simulations/pcurvesunit.pas
View File

@ -1,6 +1,7 @@
unit PCurvesUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface

2
applications/lazstats/source/forms/simulations/probzunit.pas
View File

@ -1,7 +1,7 @@
unit ProbZUnit;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface
uses

2
applications/lazstats/source/frames/reportframeunit.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, ComCtrls, ExtCtrls, StdCtrls, Dialogs,
PrintersDlgs, MainDM, Utils;
PrintersDlgs, MainDM;
type

6
applications/lazstats/source/units/anovatestsunit.pas
View File

@ -596,9 +596,9 @@ procedure HomogeneityTest(GroupCol: integer; VarColumn: integer; NoCases: intege
var
i, j, k, intvalue, Nf1cells: integer;
min, max: integer;
zscores: DblDyneMat;
medians: DblDyneVec;
cellcnts: IntDyneVec;
zscores: DblDyneMat = nil;
medians: DblDyneVec = nil;
cellcnts: IntDyneVec = nil;
X: Double;
begin
if GroupCol >= OS3MainFrm.DataGrid.ColCount then

6
applications/lazstats/source/units/functionslib.pas
View File

@ -1995,9 +1995,9 @@ end;
procedure poisson_cdf_values (VAR n : integer; VAR a : double; VAR x : integer;
VAR fx : double );
VAR
avec : DblDyneVec;
fxvec : DblDyneVec;
xvec : IntDyneVec;
avec : DblDyneVec = nil;
fxvec : DblDyneVec = nil;
xvec : IntDyneVec = nil;
begin
SetLength(avec,21);
SetLength(fxvec,21);

8
applications/lazstats/source/units/matrixunit.pas
View File

@ -225,6 +225,7 @@ function VecCreate(ALength: Integer; ADefault: Double = 0.0): TDblVector;
var
i: Integer;
begin
Result := nil;
SetLength(Result, ALength);
for i := 0 to High(Result) do
Result[i] := ADefault;
@ -513,6 +514,7 @@ function MatCreate(n, m: Integer; ADefault: Double = 0.0): TDblMatrix;
var
i, j: Integer;
begin
Result := nil;
SetLength(Result, n,m);
for i := 0 to n-1 do
for j := 0 to m-1 do
@ -1178,6 +1180,7 @@ function IntVecCreate(n: Integer; ADefault: Integer = 0): TIntVector;
var
i: Integer;
begin
Result := nil;
SetLength(Result, n);
for i := 0 to High(Result) do
Result[i] := ADefault;
@ -1188,6 +1191,7 @@ function IntMatCreate(n, m: Integer; ADefault: Integer = 0): TIntMatrix;
var
i, j: Integer;
begin
Result := nil;
SetLength(Result, n,m);
for i := 0 to n-1 do
for j := 0 to m-1 do
@ -1199,6 +1203,7 @@ function CubeCreate(n1, n2, n3: Integer; ADefault: Double = 0.0): TDblCube;
var
i,j,k: Integer;
begin
Result := nil;
SetLength(Result, n1, n2, n3);
for i := 0 to n1 - 1 do
for j := 0 to n2 - 1 do
@ -1211,6 +1216,7 @@ function IntCubeCreate(n1, n2, n3: Integer; ADefault: Integer = 0): TIntCube;
var
i, j, k: Integer;
begin
Result := nil;
SetLength(Result, n1, n2, n3);
for i := 0 to n1 - 1 do
for j := 0 to n2 - 1 do
@ -1223,6 +1229,7 @@ function QuadCreate(n1, n2, n3, n4: Integer; ADefault: Double = 0.0): TDblQuad;
var
i, j, k, l: Integer;
begin
Result := nil;
SetLength(Result, n1, n2, n3, n4);
for i := 0 to n1 - 1 do
for j := 0 to n2 - 1 do
@ -1236,6 +1243,7 @@ function IntQuadCreate(n1, n2, n3, n4: Integer; ADefault: Integer = 0): TIntQuad
var
i, j, k, l: Integer;
begin
Result := nil;
SetLength(Result, n1, n2, n3, 4);
for i := 0 to n1 - 1 do
for j := 0 to n2 - 1 do