delphi中的动态数组

Question

我在delphi 7中创建了一个TLabel和TCombobox的打包对象（TMyComponent）。 我创建了一个 TMyComponent 的动态数组（MyArray）。现在点击添加按钮，我增加了 MyArray 的长度并创建了 TLabel 和 TCombobox 的对象并显示在屏幕上。如果我添加了 5 个组件，我们如何获取 Myaaray 的当前选定组件意味着如果我从屏幕中选择了第 3 个组件，那么我如何获得值 3 作为回报？感谢帮助

Answer 1

我认为您正在寻找这样的功能：

function FindMyComponentIndex(
  Selected: TMyComponent; 
  const Components: array of TMyComponent
): Integer;
begin
  for Result := low(Components) to high(Components) do 
    if Components[Result]=Selected then
      exit;
  Result := -1;
end;

我相信如何调用这个函数会很明显。