Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

вопрос про self   Найти похожие ветки 

 
KirillSKTS   (2004-04-25 09:38) [0]

Вопрос наверно чисто академический, без практического применения.
В ниже приведенном куске кода я получу в переменной PumpTread указатель на созданный экземпляр класса?

procedure TForm1.Button1Click(Sender: TObject);
begin
.............
with TPumpTread.Create(True) do
begin
 PumpTread:=Self; <- ???????????
.............
end;
.............
end;


 
Polevi ©   (2004-04-25 09:53) [1]

на эзкмпляр класса TForm


 
Anatoly Podgoretsky ©   (2004-04-25 09:55) [2]

Ты получишь уазатель на экземпляр класса TForm1


 
Юрий Зотов ©   (2004-04-25 10:01) [3]

Нет. Self"ом здесь будет экземпляр формы TForm1.

Параметр Self не является членом класса, поэтому with здесь ничего не дает. Это обычная переменная, которая неявно передается первым параметром метода. Указывает она либо на экземпляр класса, которому принадлежит метод (в обычных методах), либо на класс, которому принадлежит метод (в классовых методах). То есть, в Вашем примере мы фактически имеем следующее:

procedure TForm1.Button1Click(Self: TForm1; Sender: TObject);

Вот и вся наука. А чтобы получить ссылку на созданный экземпляр, Вам надо написать, например так:

procedure TForm1.Button1Click(Sender: TObject);
var
 PumpTread: TPumpTread;
begin
 PumpTread := TPumpTread.Create(True);
 with PumpTread do
 try
   ...
 finally
   Free
 end
end;


 
KirillSKTS   (2004-04-25 10:18) [4]

А если сделать сложнее - вызовем функцию созданного обьекта
которая будет возвращать ссылку на обьект...

procedure TForm1.Button1Click(Sender: TObject);
begin
.............
with TPumpTread.Create(True) do
begin
PumpTread:=GetSelfRigt;
.............
end;
.............
end;

и в определении класса TPumpTread написать:

function GetSelfRigt:TPumpTread;
begin
Result:=Self; <- ???????????
end;


 
Anatoly Podgoretsky ©   (2004-04-25 10:40) [5]

Если так сделаешь, то проект не откомпилируется, какой к черту Self, он же применим только для классов.


 
Юрий Зотов ©   (2004-04-25 10:47) [6]

function TPumpTread.GetSelfRigt: TPumpTread;
begin
 Result:=Self
end;

Так пройдет. Но зачем?


 
KirillSKTS   (2004-04-25 11:11) [7]

То Anatoly Podgoretsky: я написал в определении класса, но поспешил и набрал просто функцию...
То Юрий Зотов: я это и имел в виду.
То Алл: Это все для общего образования. :) Спасибо за пояснения!

                            С уважением, Кирилл.


 
Anatoly Podgoretsky ©   (2004-04-25 11:50) [8]

Это равносильно Юрий Зотов ©   (25.04.04 10:01) [3] строка
PumpTread := TPumpTread.Create(True);



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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.058 c
1-1082415396
VPV
2004-04-20 02:56
2004.04.11
Minimize+Maximize и alClient


9-1065284888
m2003
2003-10-04 20:28
2004.04.11
Как через OpenGL вывести BMP на экран?


14-1079499578
Cerber
2004-03-17 07:59
2004.04.11
Работа в инте


3-1081853258
Kirilll
2004-04-13 14:47
2004.04.11
Delphi+Clarion?


1-1082554995
Shag
2004-04-21 17:43
2004.04.11
выделение в Excel