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;

我相信如何调用这个函数将是显而易见的。