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

fpspreadsheet: Compare strings in COUNTIF(S), SUMIF(S), AVERAGEIF(S) with wildcards.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9366 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-06-04 09:28:10 +00:00
parent 09f442d20a
commit 1f686ef1c9
1 changed files with 50 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,6 +11,7 @@ interface
uses
Classes, SysUtils, fpstypes;
function CompareStringWithWildcards(AString1, AString2: String): Boolean;
procedure RegisterStdBuiltins(AManager: TComponent);
@ -24,6 +25,53 @@ uses
const
EPS = 1E-12;
{ AString1 is the string with wildcards. }
function CompareStringWithWildCards(AString1, AString2: String): Boolean;
var
P1, P2, P10, P20: PAnsiChar;
n1, n2: Integer;
begin
if (AString1 = '') and (AString2 = '') then
begin
Result := true;
exit;
end;
if ((AString1 <> '') and (AString2 = '')) or ((AString1 = '') and (AString2 <> '')) then
begin
Result := false;
exit;
end;
n1 := Length(AString1);
n2 := Length(AString2);
P10 := PAnsiChar(AString1);
P20 := PAnsiChar(AString2);
P1 := P10;
P2 := P20;
while P1 < P10 + n1 do begin
if P1^ = '*' then
begin
Result := True;
exit;
end else
if (P1^ = '?') or (P1^ = P2^) then begin
inc(P1);
if P2 < P20 + n2 then
inc(P2)
else
begin
Result := false;
exit;
end;
end else
if (P1^ <> P2^) then
begin
Result := false;
exit;
end;
end;
end;
type
TsFuncType = (ftCountIF, ftCountIFS, ftSumIF, ftSUMIFS, ftAverageIF, ftAverageIFS);
TsCompareType = (ctNumber, ctString, ctEmpty);
@ -106,12 +154,12 @@ begin
Result := false;
AString := UTF8Lowercase(AString);
case FCompareOperation of
coEqual : if AString = FCompareString then Result := true;
coEqual : Result := CompareStringWithWildCards(FCompareString, AString);
coLess : if AString < FCompareString then Result := true;
coGreater : if AString > FCompareString then Result := true;
coLessEqual : if AString <= FCompareString then Result := true;
coGreaterEqual : if AString >= FCompareString then Result := true;
coNotEqual : if AString <> FCompareString then Result := true;
coNotEqual : Result := not CompareStringWithWildCards(FCompareString, AString);
end;
end;