|
@@ -88,6 +88,11 @@ implementation
|
|
uses
|
|
uses
|
|
WUtils;
|
|
WUtils;
|
|
|
|
|
|
|
|
+{$IFOPT Q+}
|
|
|
|
+ {$Q-}
|
|
|
|
+ {$DEFINE REENABLE_Q}
|
|
|
|
+{$ENDIF}
|
|
|
|
+
|
|
function CalcHash(const s: String): Cardinal;
|
|
function CalcHash(const s: String): Cardinal;
|
|
var
|
|
var
|
|
i: integer;
|
|
i: integer;
|
|
@@ -97,6 +102,10 @@ begin
|
|
CalcHash := CalcHash shl 9 - CalcHash shl 4 + Ord(S[I]);
|
|
CalcHash := CalcHash shl 9 - CalcHash shl 4 + Ord(S[I]);
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+{$IFDEF REENABLE_Q}
|
|
|
|
+ {$Q+}
|
|
|
|
+{$ENDIF}
|
|
|
|
+
|
|
constructor TINIEntry.Init(const ALine: string);
|
|
constructor TINIEntry.Init(const ALine: string);
|
|
begin
|
|
begin
|
|
inherited Init;
|
|
inherited Init;
|