Update simba.pixelocr.pas

Author: Torwent

Source/simba.pixelocr.pas

@@ -609,16 +609,16 @@ function TPixelOCR.RecognizeLines(Image: TSimbaImage; constref Font: TPixelFont;
 var
   isBinary: Boolean;
   Match: TPixelOCRMatch;
-  i: Integer;
+  c: Char;
 begin
   if (Length(Font.Glyphs) = 0) then
     SimbaException('Font is empty');
 
   if not AlphaNumSymbolTableInitialized then
   begin
     FillChar(AlphaNumSymbolTable, SizeOf(AlphaNumSymbolTable), False);
-    for i := 0 to High(ALPHA_NUM_SYMBOLS) do
-      AlphaNumSymbolTable[ALPHA_NUM_SYMBOLS[i]] := True;
+    for c in ALPHA_NUM_SYMBOLS do
+      AlphaNumSymbolTable[c] := True;
     AlphaNumSymbolTableInitialized := True;
   end;