Использование 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;
|