указатель на объект или подстановка объектов класса

@margarin · Регистрация: 02.06.2012

есть вот такая строчка:

Delphi

1	DataModule.ADOQuery.Locate(...);

я не могу разобраться, как подставлять ADOQuery?
допустим писать

Delphi

1	DataModule.X{-переменная/указатель/ссылка или что то вроде}.Locate(...);

и обращаться к разным ADOQuery, в зависимости от значения X.

з.ы. честно говоря не уверен, что правильно тему назвал...

@cotseec · 18.04.2013, 14:20

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

я не могу разобраться, как подставлять ADOQuery?

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

Delphi

1	function SOmeFunc(ADOQuery:TADOQuery; SomeParam:byte):BOOL;

использование аргумента ADOQuery в функции:

Delphi

1	ADOQuery.Locate(...);

вызов функции:

Delphi

1	if SOmeFunc (DataModule.ADOQuery,SomeVar) then...

@margarin · 18.04.2013, 14:40 **[ТС]**

cotseec, я даже не смог понять, кто кого не понял)
Давай попробую пояснить то, что у меня не получается)

есть вот такая строка

Delphi

1	DataModule.Fil{adoquery}.Locate('Nk',DataModule.FIND1{adoquery}.FieldByName('Nk').AsVariant,[]);

в разных случаях она должна меняться, примерно так:

Delphi

{1 случай}
DataModule.Fil{adoquery}.Locate('Nk',DataModule.FIND1{adoquery}.FieldByName('Nk').AsVariant,[]);
{2 случай}
DataModule.Fal{adoquery}.Locate('Na',DataModule.FIND2{adoquery}.FieldByName('Na').AsVariant,[]);
{3 случай}
DataModule.Fj{adoquery}.Locate('Nj',DataModule.FIND3{adoquery}.FieldByName('Nj').AsVariant,[]);

Ну примерно так это должно происходить и что бы не дублировать полностью строку, я хотел сделать что то вроде:

Delphi

DataModule.{подставляемое значение}.Locate('подставляемое значение',DataModule.{подставляемое значение}.FieldByName('подставляемое значение').AsVariant,[]);

Или это я чего не понял?

@cotseec · 18.04.2013, 14:48

т.е. грубо говоря хочется компактности кода? тогда опишите функцию (по примеру в предыдущем моем сообщении) и вызывайте ее, когда необходимо, с разными кверями в параметрах

@FIL · 18.04.2013, 14:50

FindComponent

@margarin · 18.04.2013, 15:06 **[ТС]**

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

т.е. грубо говоря хочется компактности кода?

я так понимаю на оперативность это не повлияет, так что да)

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

тогда опишите функцию (по примеру в предыдущем моем сообщении) и вызывайте ее, когда необходимо, с разными кверями в параметрах

теперь я вроде начал понимать что вы написали выше

@cotseec Пишу на Delphi...иногда 1422 / 1277 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	18.04.2013, 14:48	4
	т.е. грубо говоря хочется компактности кода? тогда опишите функцию (по примеру в предыдущем моем сообщении) и вызывайте ее, когда необходимо, с разными кверями в параметрах 1

@FIL Модератор 3487 / 2610 / 741 Регистрация: 19.09.2012 Сообщений: 7,971
	18.04.2013, 14:50	5
	FindComponent 1

@margarin 41 / 41 / 3 Регистрация: 02.06.2012 Сообщений: 351
	18.04.2013, 15:06 [ТС]	6
	Сообщение от cotseec т.е. грубо говоря хочется компактности кода? я так понимаю на оперативность это не повлияет, так что да) Сообщение от cotseec тогда опишите функцию (по примеру в предыдущем моем сообщении) и вызывайте ее, когда необходимо, с разными кверями в параметрах теперь я вроде начал понимать что вы написали выше 0

Опции темы