[mskvkin]

Мне необходимо со всеми компонентами определенного типа выполнить одно и тоже действие при этом хочу написать уникальную процедуру которая бы получала имя формы

Код:

procedure TForm1.Update_Table_Query(formName :TForm);
var
  i: Integer;
begin
  for i := 0 to formName.ComponentCount-1 do
    begin
      if (formName.Components[i] is TTable) then
        begin
          TTable(formName.Components[i]).Refresh;//Обновляем
        end;
    end;
end;

как мне оптимизировать код так чтобы при вызове процедуры не нужно было указывать имя формы вот в таком виде:

Form1.Update_Table_Query(Form2);

а можно было бы указать это примерно в таком виде:

Form1.Update_Table_Query(form.name);
где form.name имя нужной нам формы если я так пишу то при компиляции выдается сообщение :
[DCC Error] Unit15.pas(57): E2010 Incompatible types: 'TForm' and 'TComponentName'

как мне приобразовать типы или кто нибудь подскажите тогда как это же можно реализовать по другому

Заранее огромное спасибо!!!

[PiboDIE]

Сообщение от mskvkin

Мне необходимо со всеми компонентами определенного типа выполнить одно и тоже действие при этом хочу написать уникальную процедуру которая бы получала имя формы

Код:

procedure TForm1.Update_Table_Query(formName :TForm);
var
  i: Integer;
begin
  for i := 0 to formName.ComponentCount-1 do
    begin
      if (formName.Components[i] is TTable) then
        begin
          TTable(formName.Components[i]).Refresh;//Обновляем
        end;
    end;
end;

как мне оптимизировать код так чтобы при вызове процедуры не нужно было указывать имя формы вот в таком виде:

Form1.Update_Table_Query(Form2);

а можно было бы указать это примерно в таком виде:

Form1.Update_Table_Query(form.name);
где form.name имя нужной нам формы если я так пишу то при компиляции выдается сообщение :
[DCC Error] Unit15.pas(57): E2010 Incompatible types: 'TForm' and 'TComponentName'

как мне приобразовать типы или кто нибудь подскажите тогда как это же можно реализовать по другому

Заранее огромное спасибо!!!

Попробуй

Код:

TForm1.Update_Table_Query(form: TObject);
...
for i := 0 to (form as TForm).ComponentCount-1 do
...

Только зачем имя формы, если процедура принадлежит вполне конкретной форме? Если эта процедура должна работать с разными формами, то её лучше вынести в отдельный модуль (общий для всех форм) и при вызове в какой-либо форме обращаться к процедуре так

Код:

Update_Table_Query(CurrentFormVariable);

Если вызов процедуры будет происходить только из процедур, принадлежащих непосредственно форме (в процедурах/функциях кнопок и других компонент лучше всетаки использовать переменную, описывающую форму), то "CurrentFormVariable" можно заменить на "self".

Если Вам всеже нужен вариант обращения к форме непосредственно по имени формы, то могу только направить по следующему пути: передавать процедуре имя формы в формате строки (FormName: string) и, соответственно перед работой с элементами формы, её необходимо найти по этому имени (на память подсказать не могу).

[roamer]

Вот такой код срабатывает :

Код:

function My_FormFind(FormName : string) : TForm;
Var
  Comp : TComponent;
begin
  Result:=nil;
  FormName:=trim(FormName);
  if length(FormName)>0 then begin
     Comp:=Application.FindComponent(FormName);
     if Comp<>NIL then begin
        if (Comp is TForm) then begin
           Result:=(Comp as TForm);
        end;
     end;
  end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
  FormX : TForm;
begin
  FormX:=My_FormFind('Form1');
  if FormX<>NIL then begin
     ShowMessage(FormX.Name);
  end;
end;

[mskvkin]

Всем спасибо за помощь но я уже сделал по другому