Missed a ')'.

TurboPack · Jul 19, 2016 · 6631011 · 6631011
1 parent cb9647a
commit 6631011
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/PdfFonts.pas b/PdfFonts.pas
@@ -584,7 +584,7 @@ function TPdfType1Font.GetCharWidth(AText: string; APos: integer): integer;
 var
   lDefaultWidth: Word;
 begin
-  if not FArray.TryGetValue(Ord(AText[APos], Result) then
+  if not FArray.TryGetValue(Ord(AText[APos]), Result) then
   begin
     // initialize char widths array by default value (if missing width parameter
     // is defined, use it as default value.)