1

我正在解决一个需要动态调整数组大小的问题，在这个问题上需要大量操作。我已经成功编写了两个类，t_one 和 t_two：

tarray1 : array of longint;
tarray2 : array of single;
t_one = class(tobject)
  Public
  Myarray1 : tarray1;
  constructor create;
  destructor destroy;
  procedure oneofmany; 
end;
t_two = class(tobject)
  Public
  Myarray1 : tarray2;
  constructor create;
  destructor destroy;
  procedure oneofmany; 
end;

这两个对象的代码几乎相同，只是 Myarray1 在一种情况下是 single 数组，而在另一种情况下是 longint 数组。将其制成单个对象以使用变体数组的唯一方法是（这会减慢速度）吗？变体记录对于我正在做的事情也是低效的。如果我能说

case mysituation of
  integerdata : (myarray1 : tarray1);
  realdata: (myarray1 : tarray2);
end;

这就是我的意思，但显然这种语法是诅咒。当然，有些地方方法调用和函数结果需要知道数据类型，但一旦定义它们是一致的。想法？使用变体数组并遭受减速？

4

2 回答 2

3

一种可能的方法 - 使用泛型创建唯一的类

  TA<T> = class
  public
     Arr : TArray<T>;
     destructor destroy;override;
  end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  A: TA<Integer>;
  B: TA<Single>;
begin
  A := TA<Integer>.Create;
  B := TA<Single>.Create;
  A.Arr := [1,2,3];
  B.Arr := [Pi, Ln(2)];
  Memo1.Lines.Add(A.Arr[0].ToString);
  Memo1.Lines.Add(B.Arr[0].ToString);
end;
于 2020-06-26T02:29:33.080 回答
1

事实证明，答案会导致解决方案变得非常复杂。强打字是有原因的！因为不能有多个具有相同函数名称的函数返回类型，所以对于不同的参数类型，人们会陷入名称相似的函数中。如果你试试

var
  mypointer : pointer;
begin
  case argtype of
    integer: mypointer := @A;
    single : mypointer := @B;
end;

那么你每次使用它时仍然需要输入 mypointer 。事实证明并没有太大帮助。

于 2020-06-26T23:12:09.710 回答