VPF::Указатель на объект.. - Форум программистов

seer

Дата 29.4.2006, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 25.4.2006

Репутация: нет
Всего: нет

Где-то в исходнике жил был клас TForm1, с ним также проживала сожительница процедуркина, которая была очень жадной и все заносила в свой объект-блокнотик - БД.
Где-то в этом же исходнике жил был класс FormCorr, и он прослышал про этот замечательный блокнотик БД , и захотел в него чего-нибудь пописать, почитать ну и в общем поковыряться с ним. Но тетя указатель на БД не захотела ему в этом помочь.
Помогите разобраться с тетей-указателем!

Код


procedure TForm1.NAddKorrClick(Sender: TObject);
var
    FormCorr: TFormCorr;
begin
    Application.CreateForm(TFormCorr, FormCorr); //Окошко
    FormCorr.PADOQuery := Pointer(ADOQuery1);
    FormCorr.Show;
end;
...

type
  TFormCorr = class(TForm)
...
  public
    PADOQuery: ^TADOQuery;
...
end;

procedure TFormCorr.SpeedButtonAddClick(Sender: TObject);
var
  strAdd: AnsiString;
begin
  PADOQuery^.SQL.Clear; //Тута тетя очень сильно ругается!!!
//  PADOQuery^.SQL.Add('SELECT COUNT(*) FROM TableName');
//  PADOQuery^.ExecSQL;

Это сообщение отредактировал(а) seer - 29.4.2006, 17:33

Демо

Дата 29.4.2006, 17:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

ADOQuery и так ссылка на объект:

Код


procedure TForm1.NAddKorrClick(Sender: TObject);    
var    
    FormCorr: TFormCorr;    
begin    
    Application.CreateForm(TFormCorr, FormCorr); //Окошко    
    FormCorr.ADOQuery := ADOQuery1;    
    FormCorr.Show;    
end;    
...    
type    
  TFormCorr = class(TForm)    
...    
  public    
    ADOQuery: TADOQuery;    
...    
end;    

procedure TFormCorr.SpeedButtonAddClick(Sender: TObject);    
var    
  strAdd: AnsiString;    
begin    
  ADOQuery.SQL.Clear;

--------------------

seer

Дата 29.4.2006, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 25.4.2006

Репутация: нет
Всего: нет

unit ADODB
{ TADOQuery }

  TADOQuery = class(TCustomADODataSet) //указатель?
  private
    FSQL: TStrings;

Демо

Дата 29.4.2006, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Цитата(seer @ 29.4.2006, 18:11

)

//указатель?

Да.

Вернее ссылка.

Добавлено @ 18:14
Причем, если необходимо, ты можешь привести ссылку к Pointer, а затем обратно.

Это сообщение отредактировал(а) Демо - 29.4.2006, 18:13

--------------------

seer

Дата 29.4.2006, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 25.4.2006

Репутация: нет
Всего: нет

Цитата(Демо @ 29.4.2006, 18:11

)

Причем, если необходимо, ты можешь привести ссылку к Pointer, а затем обратно.

так я так и сделал... не работало...:/
Чем указатель от ссылки отличается?

Vit

Дата 30.4.2006, 03:47 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Код


  public
    PADOQuery: ^TADOQuery;
...

Указатель на указатель? Оригинально... что-то в этом коде совсем не так... Скорее всего так вообще быть не должно. А как должно? А х.з. не ясно что вообще надо получить... Во всяком случае постановка задачи мне не ясна, как и не может быть ясна ни одному программисту:

Цитата(seer @ 29.4.2006, 08:30

)

с ним также проживала сожительница процедуркина, которая была очень жадной и все заносила в свой объект-блокнотик - БД.

Я в этой фразе понял только предлоги:

"с ним также проживала" - это как находилась в одном модуле? Или была методом класса? Или методом предка/потомка? Или классовым методом?

"процедуркина" - имеется ввиду метод? Процедура? Процедурная переменная?

"которая была очень жадной " - первый раз такое понятие в программировании слышу за 20 лет работы...

" все заносила в свой объект-блокнотик" - чтио значит свой? Блокнот был объектом процедуры? Это бред! Объект может иметь владельца какой-то другой объект или родителя другой объект, процедурная переменная типа блокнот может быть локально объявлена в процедуре или быть полем другого объекта, но никак не бывает чтобы владелец блокнота была процедура. Теоретически конечно можно взять ссылку на процедуру преобразовать её к типу TComponent и засандалить в хозяина блокнота, но это имхо - бред полный!

Извольте выражаться понятно чтоб можно было хоть что-то понять.

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Yanis

Дата 30.4.2006, 08:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Vit @ 30.4.2006, 03:47

)

"которая была очень жадной " - первый раз такое понятие в программировании слышу за 20 лет работы...

Если уж говорить о термине "жадный" в программировании, то извещаю вас о существовании "жадных" алгоритмов, которые я например проходил на 1 курсе своего обучения.

--------------------

*щёлк*

Quadr0

Дата 30.4.2006, 11:42 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 11:06

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »