Question

type TSomething = record
 name: string;
 value: integer;
end;    
type TOtherSomething = record
 data: extended;
 data2: extended;
 data3: array of TSomethingAlien;
end;
...
dynarray1: array of TSomething;
dynarray2: array of TOtherSomething;

此外，还有一个令人讨厌的删除每种类型元素的程序：

procedure TForm1.DeleteSomething(N: integer);
begin
   if N > High(dynarray1) then Exit;
   if N < Low(dynarray1) then Exit;
   if N = High(dynarray1) then begin
     SetLength(dynarray1, Length(dynarray1) - 1);
     Exit;
   end;
   Finalize(dynarray1[N]) ;
   System.Move(dynarray1[N +1], dynarray1[N],(Length(dynarray1) - N  -1) * SizeOf(TSomething) + 1) ;
   setLength(dynarray1, Length(dynarray1) - 1) ;
end;                          

procedure TForm1.DeleteOtherSomething(N: integer);
... got the idea?

将过程绑定到全局对象并不聪明，但是当var Dyna: array of TSomething位于函数参数中时，编译器会呻吟，因此使用Dyna而不是寻址到dynarray1。所以我甚至不能用var参数重载多个数据类型的函数！ SetLength(Dyna, length(dynarray1) 类型不匹配！ SetLength(Dyna, length(Dyna) 类型不匹配！

想要什么：

重载 DeleteElement(var Arr: TMultipleTypes, N: element)：见上文，为什么无法实现这一目标。
单个DeleteElement实现适用于数组中的任何类型的数据？像＆lt; template＆gt;这样的东西类型支持？

Answer 1

好吧，普通的tlist类可以完成大部分工作，但它基于指针数组

通用的“tfplist”（需要2.4.0 +，请参阅fgl单元）可能更接近您的需求。但是仿制药仍处于测试阶段。

多种类型的动态数组元素删除

1 个答案: