bug fix in creating stub files

zbyna · Jul 18, 2016 · c0482b3 · c0482b3
1 parent f01dbab
commit c0482b3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/unit5.pas b/unit5.pas
@@ -67,7 +67,7 @@ procedure TForm5.UpdateTranslation(ALang: String);
 
 procedure TForm5.Button1Click(Sender: TObject);    { OK a pak vytvoř stub soubor}
 var
-  i: byte;
+  i: integer;
   discstub: TXMLNode;
   xmlDoc : IXMLDocument;
   //pomSerieNazev : String;