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

fpspreadsheet: Some clean-up: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7555 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-22 09:07:59 +00:00
parent d0fe6490d8
commit 901b92fa72
17 changed files with 94 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/source/common/fpsexprparser.pas
View File

@ -1873,7 +1873,7 @@ var
X: TsExprFloat;
lCount: Integer;
ID: TsExprIdentifierDef;
Args: TsExprArgumentArray;
Args: TsExprArgumentArray = nil;
AI: Integer;
optional: Boolean;
token: String;
@ -2185,7 +2185,7 @@ procedure TsExpressionParser.SetRPNFormula(const AFormula: TsRPNFormula);
flags: TsRelFlags;
ID: TsExprIdentifierDef;
i, n: Integer;
args: TsExprArgumentArray;
args: TsExprArgumentArray = nil;
sn, sn2: string;
rng: TsCellRange;
begin
@ -4742,7 +4742,7 @@ var
idx, idx1, idx2: Integer;
begin
AError := errOK;
SetLength(AData, BLOCKSIZE);
SetLength(AData{%H-}, BLOCKSIZE);
n := 0;
for i:=Low(Args) to High(Args) do
begin