Updated sqids ext lib

danieleteti · May 27, 2024 · bdeca61 · bdeca61
1 parent 1f06210
commit bdeca61
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sources/sqids.pas b/sources/sqids.pas
@@ -185,7 +185,7 @@ function TSqids.ToNumber(AId: string; AAlphabet: string): TNumber;
   L := Length(AAlphabet);
 
   for C in AId do
-    Result := Result * L + TNumber(Pos(C, AAlphabet)) - 1;
+    Result := Result * L + (TNumber(Pos(C, AAlphabet)) - 1);
 end;
 
 function TSqids.IsBlocked(AId: string): Boolean;