Как зарегистрировать константу - массив строк?

Vadim Mescheryakov

Как в FastScript зарегистрировать константу - массив строк?

В Delphi объявляется так:

BuiltinStr: array[0..2] of string = ('ee','tt','ttt')

AlexTZ

{**************************}
{ FastScript v1.0          }
{ Arrays demo              }
{**************************}

var
  i, j: Integer;
  ar: array[0..9] of String;
  s: String;

begin
  for i := 0 to 9 do
    ar[i] := IntToStr(i);

  s := '';
  for i := 0 to 9 do
    s := s + ar[i];

  ShowMessage(s);
end.

инициализировать массив при объявлении нельзя.

Vadim Mescheryakov

Возможно, я задал не корректный вопрос. Я хотел спросить:

Мне нужно не в самом скрипте объявить констату а зарегистрировать в интерпретаторе константу

методом fsGlobalUnit.AddConst

Сама же константа объявлена в самом приложении.

Как это сделать?

alexgold

Vadim Mescheryakov написал:

Возможно, я задал не корректный вопрос. Я хотел спросить:

Мне нужно не в самом скрипте объявить констату а зарегистрировать в интерпретаторе константу

методом fsGlobalUnit.AddConst

Сама же константа объявлена в самом приложении.

Как это сделать?

Оберни ее в функцию в приложении и зарегистрируй как функцию в скрипте

AlexTZ

Можно так (не проверял):
var v: array of variant;
setlength(v, 3);
v[0] := ..
v[1] := ..
v[2] := ..
AddConst('BuiltinStr', 'array', v)