Простейший пример использования скрипта

Этот пример демонстрирует простейший способ использования FastScript. Положите на форму компоненты TfsScript и TButton. Щелкните мышью на созданной кнопке. Создайте обработчик события Button1Click :

procedure TForm1.Button1Click(Sender: TObject);
begin
  fsScript1.Clear;
  fsScript1.Lines.Text :=  'begin ShowMessage(''Hello!'') end.';
  fsScript1.Parent := fsGlobalUnit;
  fsScript1.SyntaxType := 'PascalScript';
  if not fsScript1.Run then
    ShowMessage(fsScript1.ErrorMsg); 
end;

• Если компонент используется для запуска нескольких скриптов, надо вызвать метод Clear;
• В свойство Lines компоненты fsScript1 мы помещаем текст скрипта;
• Свойство Parent подключаем к глобальному модулю (он содержит объявления стандартных классов и функций);
• Запускаем скрипт на исполнение с помощью команды fsScript1.Run;
• Используется тип синтаксиса PascalScript. Если во время компиляции возникли ошибки выдаем сообщение с текстом ошибки fsScript1.ErrorMsg.

Альтернативный способ, без использования fsGlobalUnit (для корректной работы в многопоточных приложениях):

procedure TForm1.Button1Click(Sender: TObject);
begin
  fsScript1.Clear;
  fsScript1.AddRTTI;
  fsScript1.Lines.Text :=  'begin ShowMessage(''Hello!'') end.';
  fsScript1.SyntaxType := 'PascalScript';
  if not fsScript1.Run then
    ShowMessage(fsScript1.ErrorMsg); 
end;