Update simba.pixelocr.pas

Author: Torwent

Source/simba.pixelocr.pas

@@ -78,6 +78,7 @@   TPixelOCR = record
 const
   ALPHA_NUM_SYMBOLS = ['a'..'z', 'A'..'Z', '0'..'9', '%', '&', '#', '$', '[', ']', '{', '}', '@', '!', '?'];
 var
+  AlphaNumSymbolTableInitialized: Boolean = False;
   AlphaNumSymbolTable: array [Char] of Boolean;
 
 implementation
@@ -118,7 +119,7 @@ function IsAlphaNumSym(const text: string): Boolean; inline;
 var
   i, count, needed: Integer;
 begin
-  //50% of text
+  count := 0;
   needed := (Length(text) * 50 + 99) div 100;
 
   for i := 1 to Length(text) do
@@ -261,6 +262,7 @@ function TPixelOCR._RecognizeX(const Image: TSimbaImage; const Font: PPixelFont;
   Result.Bounds.Y1 := $FFFFFF;
   Space := 0;
 
+  BestGlyph := @Font^.Glyphs[0];
   Lo := @Font^.Glyphs[0];
   Hi := @Font^.Glyphs[High(Font^.Glyphs)];
 
@@ -611,6 +613,14 @@ function TPixelOCR.RecognizeLines(Image: TSimbaImage; constref Font: TPixelFont;
   if (Length(Font.Glyphs) = 0) then
     SimbaException('Font is empty');
 
+  if not AlphaNumSymbolTableInitialized then
+  begin
+    FillChar(AlphaNumSymbolTable, SizeOf(AlphaNumSymbolTable), False);
+    for i to High(ALPHA_NUM_SYMBOLS) do
+      AlphaNumSymbolTable[ALPHA_NUM_SYMBOLS[i]] := True;
+    AlphaNumSymbolTableInitialized := True;
+  end;
+
   Temp := Self;
   Temp.Whitelist := ALPHA_NUM_SYMBOLS;
   Temp.MaxLen := 1;
@@ -646,10 +656,4 @@ function TPixelOCR.RecognizeLines(Image: TSimbaImage; constref Font: TPixelFont;
   end;
 end;
 
-initialization
-  var i: Integer;
-  FillChar(AlphaNumSymbolTable, SizeOf(AlphaNumSymbolTable), False);
-  for i to High(ALPHA_NUM_SYMBOLS) do
-    AlphaNumSymbolTable[ALPHA_NUM_SYMBOLS[i]] := True;
-
 end.