Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

вопрос про 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;


 
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


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

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


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

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


 
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;


 
Юрий Зотов ©   (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;


 
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, он же применим только для классов.


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

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


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

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

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


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

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

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


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

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

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


 
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);


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

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



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

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.032 c
3-1081437543
jenbond
2004-04-08 19:19
2004.05.09
Присвоить полю значение NULL


9-1071347569
Sergio
2003-12-13 23:32
2004.05.09
Картинка исчезает!


14-1082016380
TUser
2004-04-15 12:06
2004.05.09
Та ли книга?


14-1082541828
Kolyan
2004-04-21 14:03
2004.05.09
Кому не Лень


11-1068747888
miek
2003-11-13 21:24
2004.05.09
Отличить KOL от VCL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский