Проваливается в Execute

отредактировано 22:14 Раздел: FastScript
Добрый день вот такая беда с сабжем:

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 и усе там и висит.
Что это могет быть?

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.