Интерпретатор

#include <fmx.h>
#pragma hdrstop
 
#include "Unit1.h"
//#include "fs_itools.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "FMX.fs_iinterpreter"
#pragma link "FMX.fs_synmemo"
#pragma link "FMX.fs_icpp"
#pragma resource "*.fmx"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 //fsGlobalUnit()->AddClass(__classid(TForm1), "TForm1");
 // fsGetLanguageList(LangCB->Items);
 // LangCB->ItemIndex = 0;
 
}
//---------------------------------------------------------------------------
 
//Jast run c++ script from script file
void __fastcall TForm1::Button1Click(TObject *Sender){
 
/*File MyScr.cpp contain follows lines:
    int i;
 
        void OK(int n)
        {
          ShowMessage(n);
        }
 
        {
          for(i = 0; i < 10; i++)
            if(i == 1) OK(1);
            else if(i == 2) OK(2);
            else if (i == 3) OK(3);
            else if (i == 4) OK(4);
            else if (i == 5) OK(5);
        }
*/
 
     fsScript1->Clear();
     fsScript1->Lines->LoadFromFile("MyScr.cpp");
     fsScript1->SyntaxType = "C++Script";
     fsScript1->Parent = fsGlobalUnit();
     if(fsScript1->Compile()){
        fsScript1->Execute();
     }
     else
      ShowMessage("Script error!");
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ForScriptFanc1(int i){
 
  ShowMessage("This_is_program_func whith param int = " + UnicodeString(i));
}
 
Variant __fastcall TForm1::CallMethod(System::TObject* Instance,
                                      TMetaClass* ClassType,
                                      const UnicodeString MethodName,
                                      Variant &Params){
 
     if(MethodName=="FORSCRIPTFANC1")
        ForScriptFanc1(  Params.GetElement(0) );
 
 
 return "";
}
 
//----------------------------------------------------
 
// c++ script call ForScriptFanc1 program function
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    /*File MyScr2.cpp contain follows lines:
      int i;
     {
     i = 55;
      ForScriptFanc1( i );
     }
     */
 
     fsScript1->Clear();
     fsScript1->Lines->LoadFromFile("MyScr2.cpp");
     fsScript1->SyntaxType = "C++Script";
     fsScript1->Parent = fsGlobalUnit();
     fsScript1->AddMethod("function ForScriptFanc1(i:Integer)",
                          &CallMethod);
 
      if(fsScript1->Compile()){
        fsScript1->Execute();
     }
     else
        ShowMessage("Script error 2 !");
 
}
//---------------------------------------------------------------------------