Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Updated sqids ext lib

Browse Source
This commit is contained in:
Daniele Teti 2024-05-27 09:07:37 +02:00
parent 1f06210979
commit bdeca614c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sources/sqids.pas
View File

@ -185,7 +185,7 @@ begin
L := Length(AAlphabet); L := Length(AAlphabet);
for C in AId do for C in AId do
Result := Result * L + TNumber(Pos(C, AAlphabet)) - 1; Result := Result * L + (TNumber(Pos(C, AAlphabet)) - 1);
end; end;
function TSqids.IsBlocked(AId: string): Boolean; function TSqids.IsBlocked(AId: string): Boolean;