Скачать: CL | DM;

создание указателя на объект   Найти похожие ветки 

← →
s77   (2005-12-01 14:50) [0]

procedure
var
   AdoQ: TADOQuery;
begin
  // AdoQ:=TADOQuery.Create(Self);
   if PageControl1.Pages[0].Visible then AdoQ:=ADOQuery1 else AdoQ:=ADOQuery2;
   
 работа с AdoQ

   AdoQ.free;
end;

последняя строка убивает ADOQuery1  или ADOQuery2 Нужна ли она
правильно ли я делаю.

---

← →
Ega23 ©   (2005-12-01 14:52) [1]

> последняя строка убивает ADOQuery1  или ADOQuery2 Нужна
> ли она
> правильно ли я делаю.


Не нужна. Если, конечно, ты не хочешь, чтобы ADOQuery1  или ADOQuery2 убились нафиг.

---

← →
s77   (2005-12-01 14:57) [2]

AdoQ  - что это такое получилось объект который скопировал ADOQuery1 или псевдоним
что станет с adoQ после выхода из процедуры - освободится ли память (create его я не делаю)

---

← →
Ega23 ©   (2005-12-01 15:34) [3]

> AdoQ  - что это такое получилось объект который скопировал
> ADOQuery1 или псевдоним
> что станет с adoQ после выхода из процедуры - освободится
> ли память (create его я не делаю)


Нет. AdoQ - это указатель на объект типа TADOQuery. Когда ты ему ставишь
if PageControl1.Pages[0].Visible then AdoQ:=ADOQuery1 else AdoQ:=ADOQuery2;
то всего лишь получаешь указатель на объект либо ADOQuery1, либо ADOQuery2.
Т.е. получаешь адрес нужного тебе объекта.

---

← →
s77   (2005-12-01 15:39) [4]

спасибо

---

← →
Anatoly Podgoretsky ©   (2005-12-01 15:53) [5]

Приведеный код правильный, а если раскомментируешь строку, то будет неправильно.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.959 c