Unicode fix

Source/RuntimeBuilder.Lua.pas

@@ -49,8 +49,8 @@ type
           consts:TList<TPair<string,TValue>>;
           FText:string;
           //function GetIncLibs():string;
-      	  //function GetText:string;override;
+      	  function GetText:string;override;
-          //procedure SetText(S:string);override;
+          procedure SetText(S:string);override;
         public
           constructor Create(Compiler:TRTBLuaCompiler);
 
@@ -359,7 +359,7 @@ end;
 destructor TRTBLuaCompiler.TRTBLuaSource.TRTBLuaLib.Destroy;
 begin
 FreeLibrary(Lib);
-end;}
+end;*)
 
 function TRTBLuaCompiler.TRTBLuaSource.GetText:string;
 begin
@@ -371,7 +371,7 @@ begin
 FText:=S;
 end;
 
-constructor TRTBLuaCompiler.TRTBLuaSource.Create(Compiler:TRTBLuaCompiler);
+{constructor TRTBLuaCompiler.TRTBLuaSource.Create(Compiler:TRTBLuaCompiler);
 begin
 inherited Create(Compiler);
 FText:='';
@@ -598,11 +598,14 @@ function TRTBLuaCompiler.TRTBLuaSource.Compilate:TRTBModule;
           PreDecl:=PreDecl+Key+' equ 0'+sLineBreak;
   end;
 var
-  templib,PreDecl:string;
+  s,PreDecl:string;
   i,sb:NativeUInt;
   RegVarDict:TDictionary<string,TPair<NativeUInt,PTypeInfo>>;
   p:pointer;
 begin
+PreDecl:='';
+for s in libs do
+  PreDecl:=PreDecl+'local '+s+'=require("'+s+'")';
 {RegVarDict:=TDictionary<string,TPair<NativeUInt,PTypeInfo>>.Create();
 with regvars do
   if Count<>0 then