Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Массивы Использование DynArrayFromVariant

Использование DynArrayFromVariant

Оцените материал
(0 голосов)

Использование DynArrayFromVariant

procedure TForm1.Button1Click(Sender: TObject);
 type
   T2DIntArray = array of array of Integer;
 var
   DynArray: T2DIntArray;
   V: Variant;
   i, k: Integer;
 begin
   V := VarArrayCreate([0, 1, 0, 1], varInteger);
   V[0, 0] := 00;
   V[0, 1] := 01;
   V[1, 0] := 10;
   V[1, 1] := 11;
   DynArrayFromVariant(Pointer(Dynarray), V, TypeInfo(T2DIntArray));
   for i := 0 to High(Dynarray) do
     for k := 0 to High(Dynarray[i]) do
       memo1.Lines.add(IntToStr(DynArray[i, k]));
 end;
Прочитано 6240 раз

Авторизация



Счетчики