4

再会，

TValue是 Delphi-2010 及更高版本的 RTTI 功能。

继我之前的问题之后，我尝试制作循环函数以将 TValue 作为 n 维返回。矩阵（2D、3D、4D...）

例如，此过程将显示一个 n 维矩阵（它将列出 n 维矩阵中的所有元素作为 TValue 变量）：

Procedure Show(X:TValue);
var i:integer;
begin
   if x.IsArray then
   begin
      for i:=0 to x.GetArrayLength-1 do
          show(x.GetArrayElement(i));
      writeln;
   end else
   write(x.ToString,' ');

end;

我不明白如何创建一个函数来从 TValue 创建一个 n 维矩阵。例如我需要一个函数 CreateDynArray(Dimensions:array of integer; Kind:TTypeKind):TValue; 并且该函数将返回一个 TValue ，它是一个动态数组，如何包含维度，例如：

Return=CreateDynArray([2,3],tkInteger); 将 TValue 作为 tkDynArray 返回，如果我将显示（返回）将列出

0 0 0
0 0 0

未终止。从 TValue 我尝试创建一个具有 n 维的 DynArray

Procedure CreateArray(var Value:TValue; NewDimmension:integer; NewValue2Kind:TTypeKind; NewValue2:TValue; IsLast:Boolean);
var i:integer;
NewValue:TValue;
len:Longint;
begin
   If Value.IsArray then// we have components in this dimension
   begin
       for i:=0 to Value.GetArrayLength-1 do// list all
       begin
            NewValue:=Value.GetArrayElement[i];
            CreateArray(newValue,NewDimension,NewValue2Kind,NewValue2,IsLast);
            Value.SetArrayElement(i,NewValue);
       end;
   end;
end else
begin
      if isLast then
      begin
         len:=NewDimension;
         DynArraySetLength(PPointer(Value.GetRefereneToRawData)^,Value.TypeInfo,1,@len); //set length to NewDimension
         for i:=0 to NewDimension-1 do //Fill all with 0
           Value.SetArrayElement(i,NewValue2);
      end else
      begin
         len:=NewDimension;
         DynArraySetLength(PPointer(Value.GetRefereneToRawData)^,Value.TypeInfo,1,@len);//I will create len TValues
      end;
end;



var Index:array of integer;
    Value:TValue;
    ValuKind:TTypeKind;
......
......
....
Case token of
   tokInt:
   begin
        ValueKind:=tkInteger;
        Value:=0;   
   end;
 .....
 end;

 Index:=GetIndexFromSintacticTree;//for example if i have int[20][30] index=[20,30]
 for i:=0 to high(index) do
 begin
    if i = high(index) then CreateArray(Variable.Value,Index[i],ValueKind,Value,True)
    else CreateArray(Variable.Value,Index[i],ValueKind,Value,False)
    //Variable.Value is TValue
 end;
 //first TValue have 1 element, after that it will have 20 elements, and after that will have 20*30 elements

理念

非常感谢您，祝您有美好的一天！

4

1 回答 1

5

要动态创建动态数组，您需要对其类型信息结构 ( PTypeInfo) 的引用以传递给DynArraySetLength; 调用DynArraySetLength和传递对 nil 指针的引用是创建新动态数组的方法。如果您的 Delphi 程序中不存在特定形状的动态数组PTypeInfo，则编译器不会为您生成特定的指针。在这种情况下，您必须自己生成相应的PTypeInfo数据结构。这是可能的，虽然很乏味。

坦率地说，我建议您使用与内置 Delphi 动态数组不同的结构来表示类似脚本语言的问题中的数组。从长远来看，它可能比尝试动态生成低级 RTTI 数据要少得多，因为它在 Rtti 单元中具有更高级别的抽象，因此更有可能在版本之间发生变化。

于 2010-12-31T00:16:49.713 回答