Delphi: как использовать ComponentCount в публичной функции?

Question

У меня есть эта функция ниже, которая использует ComponetCount, она находится в Form1, когда я использую эту функцию в другой форме, вставляя Form2 в Form1, она приносит количество Компонентов Form1, а не Form2, как я могу получить вокруг этой проблемы? Следит функция:

function Form1.getgridId(KeyField: String): string; 
var 
    i: Integer; 
    id: string; 

begin 

    for i := 0 to ComponentCount -1 do 
    begin 
    if Components[i] is TCustomDBGrid then 
    id:= TCustomDBGrid(Components[i]).DataSource.DataSet.FieldByName(KeyField).AsString; 
    end; 
    Result := id; 

end; 

ANS (в моем конкретном случае) - С помощью всего:

function getgridId(KeyField: String): string; 
var 
    i: Integer; 
    id: string; 
begin 
    for i := 0 to Screen.ActiveForm.ComponentCount -1 do 
    begin 
    if Screen.ActiveForm.Components[i] is TCustomDBGrid then 
     id := TCustomDBGrid(Screen.ActiveForm.Components[i]).DataSource.DataSet.FieldByName(KeyField).AsString; 
    end; 
    Result := id; 

end; 

Answer 1

Что вы просите требует добавления параметра в функции знать, какой формы итерировать :

function getgridId(Form: TForm; KeyField: String): string; 
var 
    i: Integer; 
    id: string; 
begin 
    for i := 0 to Form.ComponentCount -1 do 
    begin 
    if Form.Components[i] is TCustomDBGrid then 
     id := TCustomDBGrid(Form.Components[i]).DataSource.DataSet.FieldByName(KeyField).AsString; 
    end; 
    Result := id; 
end; 

Затем, когда каждая форма должна вызвать функцию, она может передать это Self указатель в качестве 1-го параметра.