fixed mormot.ui.pdf compilation

synopse · Jun 9, 2023 · 58e49cd · 58e49cd
1 parent e3dfd4b
commit 58e49cd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.1.5543'
+'2.1.5544'
diff --git a/src/ui/mormot.ui.pdf.pas b/src/ui/mormot.ui.pdf.pas
@@ -4850,6 +4850,8 @@ function TPdfWrite.AddEscape(Text: PAnsiChar; TextLen: integer): TPdfWrite;
     #1..#31, '%', '(', ')', '<', '>', '[', ']', '{', '}', '/', '#', #127..#255];
 
 function TPdfWrite.AddEscapeName(Text: PAnsiChar): TPdfWrite;
+var
+  c: cardinal;
 begin
   if Text <> nil then
     repeat