more typos

Author: Torwent

Source/simba.pixelocr.pas

@@ -75,8 +75,10 @@   TPixelOCR = record
     function RecognizeLines(Image: TSimbaImage; constref Font: TPixelFont; Bounds: TBox): TStringArray;
   end;
 
+const
+  ALPHA_NUM_SYMBOLS = ['a'..'z', 'A'..'Z', '0'..'9', '%', '&', '#', '$', '[', ']', '{', '}', '@', '!', '?'];
 var
-  ALPHA_NUM_SYMBOLS: array [Char] of Boolean;
+  AlphaNumSymbolTable: array [Char] of Boolean;
 
 implementation
 
@@ -87,14 +89,12 @@ implementation
   simba.fs;
 
 initialization
-const
-  CHARACTERS = ['a'..'z', 'A'..'Z', '0'..'9', '%', '&', '#', '$', '[', ']', '{', '}', '@', '!', '?'];
 var
-  c: Char;
+  i: Integer
 begin
-  FillChar(ALPHA_NUM_SYMBOLS, SizeOf(ALPHA_NUM_SYMBOLS), False);
-  for c in CHARACTERS do
-    ALPHA_NUM_SYMBOLS[c] := True;
+  FillChar(AlphaNumSymbolTable, SizeOf(AlphaNumSymbolTable), False);
+  for i to High(ALPHA_NUM_SYMBOLS) do
+    AlphaNumSymbolTable[ALPHA_NUM_SYMBOLS[i]] := True;
 end;
 
 function IsSimilar(const Image: TSimbaImage; const X, Y: Integer; const Color2: TColorBGRA; const Tol: Single): Boolean; inline;
@@ -131,7 +131,7 @@ function IsAlphaNumSym(const text: string): Boolean; inline;
   needed := (Length(text) * 50 + 99) div 100;
 
   for i := 1 to Length(text) do
-    if ALPHA_NUM_SYMBOLS[text[i]] then
+    if AlphaNumSymbolTable[text[i]] then
     begin
       Inc(count);
       //if 50% of the text is ALPHA_NUM_SYMBOLS we are good.