Проваливается в Execute
Добрый день вот такая беда с сабжем:
FMyScript = new TfsScript(NULL);
FMyScript->Clear();
FMyScript->AddRTTI();
FMyScript->SyntaxType = "PascalScript";
FPascalSc = new TfsPascal(NULL);
for (int i = 0; i < 10; i++)
{
FMyScript->AddVariable("Vr" + IntToStr(i+1) ,"boolean",false);
}
FMyScript->AddVariable("GlobalVar1" ,"boolean",false);
FMyScript->Lines->Add("begin");
FMyScript->Lines->Add("GlobalVar1:=Vr1;");
FMyScript->Lines->Add("end.");
FMyScript->Variables[0] = true;
if (FMyScript->Compile() != true)
{
String tempStr = FMyScript->ErrorMsg;
}
FMyScript->Execute();
boolean b = FMyScript->Variables[10];
Проваливается в Execute и усе там и висит.
Что это могет быть?
FMyScript = new TfsScript(NULL);
FMyScript->Clear();
FMyScript->AddRTTI();
FMyScript->SyntaxType = "PascalScript";
FPascalSc = new TfsPascal(NULL);
for (int i = 0; i < 10; i++)
{
FMyScript->AddVariable("Vr" + IntToStr(i+1) ,"boolean",false);
}
FMyScript->AddVariable("GlobalVar1" ,"boolean",false);
FMyScript->Lines->Add("begin");
FMyScript->Lines->Add("GlobalVar1:=Vr1;");
FMyScript->Lines->Add("end.");
FMyScript->Variables[0] = true;
if (FMyScript->Compile() != true)
{
String tempStr = FMyScript->ErrorMsg;
}
FMyScript->Execute();
boolean b = FMyScript->Variables[10];
Проваливается в Execute и усе там и висит.
Что это могет быть?