Какого типа данных должна быть переменная?

Question

[animr]

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

procedure myProcedure(NameNewQuery: String);
begin
Query.Active := False; //Вместо этой строки
NameNewQuery.Active := False; //Вот это строка, ну примерно так.
//и везде где Query подставить переменную NameNewQuery
Query.Close;
dsNameDoc.DataSet := Query;
Query.SQL.Clear;
Query.SQL.Text := 'SELECT * FROM tablename';
end;

Answer 1

[iloer]

Входной параметр должен быть того же типа что и используемый Query,
(для FireDAC - TFDQuery
для BDE - TQuery
для dbgo - TADOQuery - )

Comments

[animr]

а как реализовать ? у Меня TmySQLQuery

[animr]

DAC for MySQL

[iloer]

procedure myProcedure(AQuery: TmySQLQuery);
begin
AQuery.Active := False; //Вместо этой строки
AQuery.Close;
dsNameDoc.DataSet := Query;
AQuery.SQL.Clear;
AQuery.SQL.Text := 'SELECT * FROM tablename';
end;

При этом объект Query передаваемый в качестве параметра должен быть уже создан

[animr]

Потому появляется следующая ошибка Underclared identifier: 'TmySQLQuery' . Потому что объект не создан?

[iloer]

тип TmySQLQuery не описан, либо не подключен нужный unit в секции Uses

[animr]

Подключен, не понимаю в чем дело тогда. Есть идеи еще ?

[animr]

и еще ругается Underclared identifier: 'AQuery'

[iloer]

Проверить корректность написания использованного типа
"Underclared identifier: 'TmySQLQuery'" говорит только о том что тип TmySQLQuery не объявлен

вышлите пример вашего кода

[animr]

procedure TPasswordDlg.myProc(AvarNameMyQuery: TmySQLQuery; varNameTable: String);
begin
dmContanierIcon.AvarNameMyQuery.Active := False;
dmContanierIcon.AvarNameMyQuery.Close;
dmContanierIcon.dsNameDoc.DataSet := dmContanierIcon.AvarNameMyQuery;
dmContanierIcon.AvarNameMyQuery.SQL.Clear;
dmContanierIcon.AvarNameMyQuery.SQL.Text := 'SELECT * FROM :TableName';
dmContanierIcon.AvarNameMyQuery.ParamByName('TableName').AsString := varNameTable;

[iloer]

по всей видимости необходимый вам тип TmySQLQuery определен на форме dmContanierIcon, и не определен на PasswordDlg, опять же проверьте подключенные Unit на форме PasswordDlg

[animr]

Все подключено, не понимаю в чем ошибка.

[iloer]

по моему тут не хватает чего-то вроде uMySQLDAC, или как называется модуль с описанием ваших компонент

[animr]

и он подключен

[iloer]

Добавь компонент на форму и посмотри какой unit добавится, ты блин тролиш меня чтоль?

[animr]

Ничего не добавляется, все что есть на рисунке все есть и все. Мне реально нужна помощь, мне зачем играться ? Я сам не знаю чего он хочет.