procedure FreeControl(var List: array of TControl; Index: Integer);
var nMax: Integer;
begin
nMax := High(List);
if(Index<0)or(Index>nMax)then Exit;
List[Index].Free;
Move(List[Index+1], List[Index], SizeOf(List[Index])*(nMax-Index));
SetLength(List, nMax);
end;
Delphi删除动态数组控件的方法
最新推荐文章于 2021-02-22 10:47:10 发布