...DynArrayFromVariant verwenden?

Autor: P. Below

Kategorie: Sonstiges


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;

{
  The problem with DynArrayFromVariant is that you can only use it on
  variant arrays with 0-based indexes, trying to use it on an array with 1
  as lower bound blows up. Since the documentation is silent on that i
  would consider it a bug.
}

 

printed from
www.swissdelphicenter.ch
developers knowledge base