Функция с переменным числом параметров

Комментарии

• -=Den=-

  May 2006 отредактировано 17:11

  Попробуйте описать так:
  Func(AParam:Variant): Variant;
• SpirinS

  May 2006 отредактировано 17:11

  Спасибо
  
  Так действительно все работает. Ввела в заблуждение разница с Delphi. В Delphi для передачи вариантного массива необходимо использовать VarArrayOf. Конструкция же [,,] используется для динамического массива вариантов. Эта разница объяснима? Или так исторически сложилось?
  
  Спирин Сергей.
  Компания "Паритет Софт".
  
  P.S. Кстати, пустой массив - [] не воспринимается, дает "expression error". Проблема обходится параметром по умолчанию, но все-таки
• -=Den=-

  May 2006 отредактировано 17:11

  Вообще кострукция Func(AParam: array of Variant): Variant должна работать.
  Какую ошибку выдает при таком объявлении?

  написал:

  P.S. Кстати, пустой массив - [] не воспринимается, дает "expression error". Проблема обходится параметром по умолчанию, но все-таки 

  Просто в самом синтаксисе это не учтено.
• SpirinS

  May 2006 отредактировано 17:11

  написал:

  Вообще кострукция Func(AParam: array of Variant): Variant должна работать

  
  Конструкция то работает, только в "одну строку" что-то я не понимаю как это использовать:
  
  Func(?????) // В Delphi - Func([x,y,z])
  
  Понятно, что можно:
  
  V : array of variant;
  SetLength(V, 3)
  V[1] := ...
  .....
  .....
  и, наконец, Func(V)
  
  Но для целей передачи произвольного кол-ва параметров это как-то...
  
  Кстати, если можно, еще консультацию. Имеем вариантный массив элементы которого тоже могут быть вариантным массивом, то есть:
  
  V := VarArrayCreate([1, 100], varVariant);
  V[1] := VarArrayCreate([1, 10], varVariant);
  
  Как теперь "достучаться" до элемента [1,1]?
  
  В Delphi - V[1][1] := '111111';
  В скрипте на такое - "List index out..".
• -=Den=-

  May 2006 отредактировано 17:11

  А, так:
  var
  v,v1,v2:variant;
  begin
  V := VarArrayCreate([0 ,1], varVariant);
  V[0] := VarArrayCreate([1, 8], varVariant);
  v[1] := VarArrayCreate([1, 6], varVariant);
  v[0,1] := 1;
  v[0,2] := 2;
  v[0,3] := 3;
  v[0,4] := 4;
  v[0,5] := 5;
  v[0,6] := 6;
  v[0,7] := 7;
  v[0,8] := 8;
  v[1,1] := 11;
  v[1,2] := 12;
  v[1,3] := 13;
  v[1,4] := 14;
  v[1,5] := 15;
  v[1,6] :=16;
  ShowMEssage(V[1,1]);
  end.
  
• SpirinS

  May 2006 отредактировано 17:11

  написал:

  А, так:

  Бр.. Так еще хуже.
  
  1. Почему результат 16?
  2. Если закомментировать все присвоения кроме v[1,1] := 11, то результат правильный 11. Гм...
  
  3. С массивом, который создан в Delphi с помощью VarArrayCreate и возвращен как результат функции не работает, получается нужно преобразовывать, как?
  
  4. Опять все наоборот по сравнению с Delphi - V[x,y] - для многомерных массивов, а у нас вложенные.
  
• -=Den=-

  May 2006 отредактировано 17:11

  Предыдущий пост можно игнорировать, работать этот бред и не должен
  Пока это можно сделать только через дополнительные переменные:
  var
  v,v1,v2:variant;
  begin
  V := VarArrayCreate([0 ,1], varVariant);
  V[0] := VarArrayCreate([1, 8], varVariant);
  v[1] := VarArrayCreate([1, 6], varVariant);
  v1 := v[0];
  v2 := v[1];
  v1[1] := 0;
  v1[3] := 3;
  v2[1] := 4;
  v2[2] := 5;
  ShowMEssage(V1[3]);
  end.
  
  Еще можно зарегистрировать финкцию VarArrayRef() и попробовать так ShowMEssage(VarArrayRef(V[1])[2])
• SpirinS

  May 2006 отредактировано 17:11

  написал:

  Предыдущий пост можно игнорировать, работать этот бред и не должен 
  Пока это можно сделать только через дополнительные переменные:

  Да, то что можно сделать через доп. функции это было очевидно сразу. К сожалению, у меня задача в обшем виде, поэтому "полумеры" мне не очень подходят. Остановился на "избыточном варианте" - всегда создавать многомерный массив, здесь пока проблем не обнаружил. На будующее, мне кажется, стоит подумать о введении синтаксиса "массив в элементе массива" - V[x][у]....
  
  В любом случае, большое спасибо, Вы мне реально помогли.
  
  Спирин Сергей.
  Компания "Паритет Софт".
  
  
• vlad-mal

  May 2010 отредактировано 17:11

  SpirinS написал: »

  ...стоит подумать о введении синтаксиса "массив в элементе массива" - V[x][у]....

  
  Как же плохо, что это до сих пор не сделано...
  
• vlad-mal

  May 2010 отредактировано 17:11

  написал: »

  ...
  Еще можно зарегистрировать финкцию VarArrayRef() и попробовать так ShowMEssage(VarArrayRef(V[1])[2])

  
  точно также не работает.

    Script.AddMethod('function VarArrayRef(const A: Variant): Variant', CallMethods); // регистрация
  ...
  function TCustomAdvReport.CallMethods(Instance: TObject; ClassType: TClass;
    const MethodName: String; var Params: Variant): Variant;
  begin
    Result := null;
    if MethodName = 'VARARRAYREF' then
      Result := VarArrayRef(Params[0]);
  
  end;
  

  ...ну как же все-таки обратиться к элементу вариантного массива, который является массивом?
  Через вспомогательные переменные - это просто ужасно: данные копируются, теряется производительность...