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

16
components/fpspreadsheet/source/common/fpspreadsheet.pas
View File

@ -1255,15 +1255,13 @@ function TsWorksheet.BuildRPNFormula(ACell: PCell;
var
formula: PsFormula;
begin
if (ACell = nil) or (not HasFormula(ACell)) then begin
SetLength(Result, 0);
Result := nil;
if (ACell = nil) or (not HasFormula(ACell)) then
exit;
end;
formula := FFormulas.FindFormula(ACell^.Row, ACell^.Col);
if formula = nil then begin
SetLength(Result, 0);
if formula = nil then
exit;
end;
if ADestCell <> nil then begin
formula^.Parser.PrepareCopyMode(ACell, ADestCell);
@ -3630,7 +3628,7 @@ function TsWorksheet.GetSelection: TsCellRangeArray;
var
i: Integer;
begin
SetLength(Result, Length(FSelection));
SetLength(Result{%H-}, Length(FSelection));
for i:=0 to High(FSelection) do
Result[i] := FSelection[i];
end;
@ -6398,7 +6396,7 @@ var
fmtIDs: TsSpreadformatIDArray;
i, j: Integer;
begin
SetLength(AFormatIDs, 0);
AFormatIDs := nil;
if AStream = nil then
exit;
@ -7314,7 +7312,7 @@ var
begin
Result := false;
AWorksheet := nil;
SetLength(ARanges, 0);
ARanges := nil;
if AText = '' then
exit;