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

LazStats: Fix FreqUnit crashing due to improper array dimensions.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7716 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-29 10:14:55 +00:00
parent c33d6d24a5
commit c8585f1eeb
2 changed files with 21 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
applications/lazstats/source/LazStats.lpi
View File

@ -1441,8 +1441,20 @@
<OtherUnitFiles Value="forms;forms\analysis;forms\analysis\cross-classification;forms\analysis\financial;forms\analysis\descriptive;forms\analysis\one_sample_tests;forms\analysis\comparisons;forms\analysis\correlation;forms\analysis\matrix_manipulation;forms\analysis\measurement_programs;forms\analysis\measurement_programs\item_banking;forms\analysis\multiple_regression;forms\analysis\multivariate;forms\analysis\nonparametric;forms\analysis\statistical_process_control;forms\help;forms\options;forms\misc;forms\simulations;forms\tools;forms\variables;units;frames"/> <OtherUnitFiles Value="forms;forms\analysis;forms\analysis\cross-classification;forms\analysis\financial;forms\analysis\descriptive;forms\analysis\one_sample_tests;forms\analysis\comparisons;forms\analysis\correlation;forms\analysis\matrix_manipulation;forms\analysis\measurement_programs;forms\analysis\measurement_programs\item_banking;forms\analysis\multiple_regression;forms\analysis\multivariate;forms\analysis\nonparametric;forms\analysis\statistical_process_control;forms\help;forms\options;forms\misc;forms\simulations;forms\tools;forms\variables;units;frames"/>
<UnitOutputDirectory Value="..\ppu\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="..\ppu\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration> <CodeGeneration>
<SmartLinkUnit Value="True"/> <SmartLinkUnit Value="True"/>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
<VerifyObjMethodCallValidity Value="True"/>
<Optimizations> <Optimizations>
<OptimizationLevel Value="2"/> <OptimizationLevel Value="2"/>
</Optimizations> </Optimizations>
@ -1452,11 +1464,6 @@
<DebugInfoType Value="dsDwarf2"/> <DebugInfoType Value="dsDwarf2"/>
</Debugging> </Debugging>
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>

17
applications/lazstats/source/forms/analysis/descriptive/frequnit.pas
View File

@ -6,7 +6,7 @@ unit FreqUnit;
interface interface
uses uses lazlogger,
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, LCLVersion, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, LCLVersion,
StdCtrls, Buttons, ExtCtrls, ComCtrls, Spin, StdCtrls, Buttons, ExtCtrls, ComCtrls, Spin,
Globals, MainUnit, DataProcs, Globals, MainUnit, DataProcs,
@ -108,7 +108,9 @@ var
m: Double; m: Double;
e: Integer; e: Integer;
begin begin
intervalSize := round((AMax - AMin) / NoIntervalsEdit.Value); // intervalSize := round((AMax - AMin) / NoIntervalsEdit.Value);
intervalSize := (AMax - AMin) / NoIntervalsEdit.Value;
if intervalSize = 0 then intervalSize := 1;
MantisseAndExponent(intervalSize, m, e); MantisseAndExponent(intervalSize, m, e);
m := round(m); m := round(m);
AIntervalSize := m * IntPower(10, e); AIntervalSize := m * IntPower(10, e);
@ -164,13 +166,6 @@ begin
exit; exit;
end; end;
SetLength(freq, NoCases);
SetLength(pcnt, NoCases);
SetLength(cumpcnt, NoCases);
SetLength(pcntilerank, NoCases);
SetLength(cumfreq, NoCases);
SetLength(XValue, NoCases);
lReport := TStringList.Create; lReport := TStringList.Create;
try try
lReport.Add('FREQUENCY ANALYSIS BY BILL MILLER'); lReport.Add('FREQUENCY ANALYSIS BY BILL MILLER');
@ -208,8 +203,12 @@ begin
CalcIntervals(min, max, incrSize, nInts); CalcIntervals(min, max, incrSize, nInts);
SetLength(freq, nInts); SetLength(freq, nInts);
SetLength(cumFreq, nInts);
SetLength(XValue, nInts); SetLength(XValue, nInts);
SetLength(XLabels, nInts); SetLength(XLabels, nInts);
SetLength(pcnt, nInts);
SetLength(cumPcnt, nInts);
Setlength(pcntileRank, nInts);
// Get frequency of cases in each interval // Get frequency of cases in each interval
nCases := 0; nCases := 0;