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

[cr1me]

Добрый день, прошу не выливать море говна что неуч и читать не умею, а просто помочь с ответом.
Работаю с БД ACCESS через АDO. хочу все уложить в процедуры.
по нажатию на кнопку данный код работает:

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM cal');
ADOQuery1.Active:=True;

Но если пытаюсь сделать процедуру аля конект к базе

procedure logindb();
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM cal');
ADOQuery1.Active:=True
end;

начинает ругаться что не слышал ничего о ADOQuerty1. Каким образом рассказать процедуре о его существовании.
я думаю тут вопрос сугубо в грамматике и правильной подаче данных.
заранее спасибо

[rdama]

Ну тут уж объявляем процедуру в секции public у формы или дата модуля.
Пока не понятно с чем вы работаете.
И тогда тело вашей процедуры приобретает вид

procedure TForm1.logindb();
begin
...

Или

procedure TDataModule1.logindb();
begin
...

Либо пишем полный путь так сказать до компонента.

Form1.ADOQuery1.SQL.Clear;

или

DataModule1.ADOQuery1.SQL.Clear;

Ну можете использовать конструкцию with do.

[cr1me]

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

[evg_m]

Либо пишем полный путь так сказать до компонента.
Код:


Form1.ADOQuery1.SQL.Clear;

если не хотим проблем в дальнейшем, то делаем процедуру с параметром

procedure ogindb(myADO: TADOQuery);
begin
  MyAODQuery.SQL.Text:=....;
end;

какие проблемы? читаем здесь про глобальные переменные