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

Вниз

Создание объекта   Найти похожие ветки 

 
scorpi   (2003-09-09 06:50) [0]

Как узнать создал я уже объект или нет..???
Мне надо его потом удалить, но перед этим надо знать создан ли он

Код примерно такой:
var Edit1:TEdit;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1:=TEdit.Create(Self);
Edit1.Left:=120;
Edit1.Top:=100;
Edit1.Parent:=self;
Edit1.Text:="Text";
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.destroy;
end;

Но при нажатии второго раза по кнопке Button2 валазит ошибка...!!


 
Hooch   (2003-09-09 07:02) [1]

Edit1.destroy -> if Assigned(Edit1) then FreeAndNil(Edit1)


 
Zergling   (2003-09-09 07:56) [2]

Достаточно использовать Edit1.Free;

Free - сама проверяет существует объект или нет.


 
scorpi   (2003-09-09 08:35) [3]

To Zergling - На Free ругается ... Со второго нажатия Button2.


 
scorpi   (2003-09-09 08:36) [4]

To Zergling - На Free ругается ... Со второго нажатия Button2.


 
Radionov Alexey   (2003-09-09 08:41) [5]

var Edit1:TEdit=Nil;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1=Nil then
begin
Edit1:=TEdit.Create(Self);
Edit1.Left:=120;
Edit1.Top:=100;
Edit1.Parent:=self;
Edit1.Text:="Text";
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1<>Nil then
FreeAndNil(Edit1);
end;


 
Digitman   (2003-09-09 08:42) [6]

procedure TForm1.Button2Click(Sender: TObject);
begin
FreeAndNil(Edit1);
end;


 
Calm   (2003-09-09 09:47) [7]


> Free - сама проверяет существует объект или нет.

Free проверяет, равен ли указатель nil. Если не равен, то вызывается десруктор. При этом объект не заниливается. Поэтому при вторичном вызове Free по-прежнему будет вызываться деструктор.

Однозначно нужно использовать FreeAndNil.
P.S.
Еще более однозначно - нужно внимательнее следить за рождением и уничножением объектов в программе :)


 
KSergey   (2003-09-09 09:57) [8]

Ссылка по теме для автора:
http://www.delphikingdom.com/helloworld/runtime_comp.htm



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

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

Наверх




Память: 0.46 MB
Время: 0.018 c
14-71821
anton_cor
2003-09-04 14:51
2003.09.22
какой шел выбрать под win?


1-71637
Max_
2003-09-09 10:31
2003.09.22
Глобальная переменная и её уничтожение!


1-71755
ruslan_as
2003-09-10 10:18
2003.09.22
Как вложить файл PDF в мой EXE


3-71511
DelphiNew
2003-09-02 09:50
2003.09.22
Sql запрос


6-71794
Dwemer
2003-07-22 00:31
2003.09.22
Как поймать момент подключения к инету?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский