#language PascalScript

//Мнемокод скрипта: Список_файлов_получить

Var
  Ошибка_Код:integer;
  Файлы_Список:TStrings;

BEGIN
  Ошибка_Код:=0;
  //---------------------------------------
  //Возвращаемые значения (к Актору-1)
  //Переменные FS
  Результат_Выполнения:='';
  //---------------------------------------
  //---------------------------------------
  //Входные данные (от Актора-1)
  //Константы FS
  //Маска_файлов - заданная папка должна существовать
  //---------------------------------------
  if trim(Маска_файлов)<>'' then begin
     Файлы_Список := TStringList.Create;
     TRY
       Файлы_Список_Получить(
                             Файлы_Список,
                             trim(Маска_файлов),
                             true
                            );
       Файлы_Список.Insert(0,'Ok');
       //Возвращаемое значение
       Результат_Выполнения:=Файлы_Список.Text;
     FINALLY
       Файлы_Список.Free;
       Файлы_Список:=nil;
     END;
  end
  else begin
     Ошибка_Код:=1;
     //Возвращаемое значение
     Результат_Выполнения:='Ошибка! Маска задана НЕ корректно';
  end;
END.