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

Комментарии

• AlexTZ

  November 2004 отредактировано 03:05

  {**************************}
  { 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

  November 2004 отредактировано November 2004

  Возможно, я задал не корректный вопрос. Я хотел спросить:
  
  Мне нужно не в самом скрипте объявить констату а зарегистрировать в интерпретаторе константу
  
  методом fsGlobalUnit.AddConst
  
  Сама же константа объявлена в самом приложении.
  
  Как это сделать?
• alexgold Москва

  November 2004 отредактировано 03:05

  Vadim Mescheryakov написал:

  Возможно, я задал не корректный вопрос. Я хотел спросить:
  
  Мне нужно не в самом скрипте объявить констату а зарегистрировать в интерпретаторе константу
  
  методом fsGlobalUnit.AddConst
  
  Сама же константа объявлена в самом приложении.
  
  Как это сделать?

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

  November 2004 отредактировано 03:05

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