процедуры и компоненты

[DGJ]

Добрый день
Подскажите пожалуйста, как сделать чтобы в обычной процедуре можно было использовать компоненты (кнопка, edit, chart и т.д.). При использовании их появляется ошибка undeclared identifier. А если их объявить в разделе переменных процедуры, то ошибка не появляется, но компоненты никак не реагируют на команды этой процедуры.

[xoodoo]

Передавай компоненты параметрамми в процедуру.

[DGJ]

Спасибо, за ответ.
я правильно понял?

procedure gg(edt1: TEdit);
begin
  edt1.Text:=' ';
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
gg(edt1);
end;

Вроде работает, но хотелось бы чтобы это было правильно.

[Человек_Борща]

Либо так:
У каждого компонента есть свойство Tagб туда вносите уникальный номер.
Потом в зависимости от номера, программа будет знать, что этоз а компонент и что с ним делать.

procedure SameProc(Sender:TObject);
begin
  if (Sender is TComponent) then
  begin
   Case (Sender as TComponent).Tag of 
   1:
   begin
   (Sender as TEdit). ....  
   //Работа с TEdit
   end;
   2:
   begin
         (Sender as TButton). .... 
     //Работа с TButton
   end;
   3:
   begin
        (Sender as TChart). .... 
     //Работа с TChart
   end;
  end;
end;

Пример:

   SameProc(TObject(Edit1));

Не помню, надо ли там приведение типа. Но думаю, что нет т.к. все в VCL наследуется от базового TObject.

[DGJ]

большое спасибо

[DGJ]

 procedure TMyThread1.Execute;
 begin
 while not Terminated do
 Synchronize(DoWork(cht1));
 end;

 procedure TMyThread2.DoWork(Sender:TObject);
 begin
 cht1.series[0].add(a[i]),'',clred);
 end;

А как быть в этом случае?
так делать нельзя:

TMyThread1.Execute(Sender:TObject);

а если без (Sender:TObject), то для этой процедуры неизвестен cht1

[phomm]

Для потоков TThread рекомендуется при создании потока передать ему все необходимые параметры в его поля.
Т.е. в Вашем наследнике TMyThread2 надо добавить поле типа TChart (для примера назовём его Chart) и создание потока примерно такое:

MyThread := TMyThread2.Create(True);
MyThread.Chart := cht1; 
Mythread.Resume;

Метод синхронизации DoWork надо оставить без параметров, а вот внутри него просто обращаться к своему полю Chart.

В общем же случае можно написать и специальную функцию принимающую именно нужный тип объекта , а не TObject.
Альтернатива - объявлять не подпрограммы обращающиеся к компонентам, а сразу методы формы и тогда доступ к ним будет безо всяких проблем, ведь и метод и компонент будут принадлежать 1 классу - форме.

[DGJ]

Я сделал так, вроде работает

 procedure TMyThread1.DoWork;
 begin
  form1.cht1.series[0].add(a[i],'',clred);
 end;

Так делать можно?