Продолжить выполнение скрипта

отредактировано 09:01 Раздел: FastScript
Скрипт запускается и выполняется.

if not fsScript1.Compile then
begin
end
else
Status.Text := 'Compiled OK, Running...';
try
fsScript1.Execute;
finally
FRunning := False;
Status.Text := 'Exception in the program';
end;

Прерываем выполнение скрипта. Запускаем его на выполнение снова!
Сам скрипт не менялся в т.е он как бы откомпилирован. и проверка не нуна.
Как сделать чтобы заработала такая конструкция без компиляции?


if isEdit then
begin
if not fsScript1.Compile then
begin
end
else
Status.Text := 'Compiled OK, Running...';
end

try
fsScript1.Execute;
finally
FRunning := False;
Status.Text := 'Exception in the program';
end;

Сейчас не работает.

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

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