Продолжить выполнение скрипта
Скрипт запускается и выполняется.
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;
Сейчас не работает.
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;
Сейчас не работает.