Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Как инициализировать массив OleVariant?

Автор: Святогор 12.1.2010, 13:41

В документации написано: "position - array of 2 numbers".

Причём свойство position имеет тип OleVariant.

На ДжаваСкрипте всё выглядит просто:

Код


myPlacedItem.position = Array( 0, 100);

На Делфи пробовал это, но не помогло:

Код


var
  Item: PlacedItem;
  Position: Variant;
begin
  Position := VarArrayCreate([0, 1], varDouble);
  VarArrayPut(Position, (Top), [0]);
  VarArrayPut(Position, (Left), [1]);

  Item.Position := Position;
end;

Субж!

Автор: evgenln 14.1.2010, 21:45

Код


var ar: OleVariant;
    i: integer;
begin
  Randomize;
  ar:= VarArrayCreate([0,100],varInteger) ;
  for I := 0 to 100 do
   ar[i]:= random(1000);  //ЗАПОЛНЯЕМ АРХИВ

  for I :=0  to 100 do
    ListBox1.Items.Add(IntToStr(integer(ar[i])));//ДОСТУП К ЕЛЕМЕНТАМ

end;

Зачем VarArrayPut