paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Fix missing return value of function fpsfunc.CompareStringWithWildCards

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9391 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-07-17 15:35:53 +00:00
parent f496fe9a62
commit f972e77759
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/source/common/fpsfunc.pas
View File

@ -70,6 +70,7 @@ begin
exit; exit;
end; end;
end; end;
Result := true;
end; end;
type type
@ -101,7 +102,6 @@ type
FCompareType: TsCompareType; FCompareType: TsCompareType;
FCompareNumber: Double; FCompareNumber: Double;
FCompareString: String; FCompareString: String;
FWorkbook: TsWorkbook;
FFormatSettings: TFormatSettings; FFormatSettings: TFormatSettings;
protected protected
function CompareArg(ArgIndex: Integer): Boolean; function CompareArg(ArgIndex: Integer): Boolean;
@ -233,6 +233,8 @@ var
count: Integer; count: Integer;
sum: Double; sum: Double;
begin begin
Result := ErrorResult(errArgError);
if not ValidParams(Result) then if not ValidParams(Result) then
exit; exit;