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

Вниз

Указатель на не существующий компонент   Найти похожие ветки 

 
webpauk   (2006-05-12 18:31) [0]

var
 fLabel: Pointer;
begin
 fLabel:=@Label1;
 Label1.Free;

 
как проверить существует ли Tlabel(fLabel)?


 
Джо ©   (2006-05-12 18:36) [1]

> как проверить существует ли Tlabel(fLabel)?

Теоретически — можно, практически — никак. Нужно не доводить до такой ситуации.


 
MetalFan ©   (2006-05-12 18:38) [2]

простите, а зачем такой изврат?
переменная-Объект - это уже и так указатель на область  памяти во внутреннем представлении.


 
webpauk   (2006-05-12 18:43) [3]


> MetalFan ©   (12.05.06 18:38) [2]

указатель в другой форме
и пока работа происходит в этой форме в предидущей форме может многое измениться


 
Джо ©   (2006-05-12 18:47) [4]

> указатель в другой форме

Сорри, а можно поинтересоваться, что имеется в виду под конструкцией @Label1? Ведь это не совсем одно и то же, что указатель на экземпляр класса.


 
webpauk   (2006-05-12 18:48) [5]


> Джо ©   (12.05.06 18:47) [4]

подскажи как правильно (в рамках заданного вопроса).


 
Джо ©   (2006-05-12 18:50) [6]

> [5] webpauk   (12.05.06 18:48)
> подскажи как правильно (в рамках заданного вопроса).

Ответ на вопрос был в [1]. Есть дополнительные вопросы? :)


 
webpauk   (2006-05-12 18:51) [7]


> Джо ©   (12.05.06 18:50) [6]

в морг, так в морг


 
Гаврила ©   (2006-05-12 20:28) [8]


> как проверить существует ли Tlabel(fLabel)?


> fLabel:=@Label1;


Tlabel(fLabel) - это указатель вникуда(при раскладе что это указатель на указатель).
По сабжу - при разрушении присваивай nil переменной. И проверяй существование именно так


 
Мефисто   (2006-05-12 20:36) [9]

begin
Label1.Free;
Label1 := Nil;
if not Assigned(Label1) then Caption := "Free";
end;

?



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

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

Наверх




Память: 0.48 MB
Время: 0.026 c
6-1138388766
KLAUS
2006-01-27 22:06
2006.05.28
Ошибка сценария Interner Explorer


2-1147179928
tigra
2006-05-09 17:05
2006.05.28
if.... then exit;


5-1132651701
nikolas
2005-11-22 12:28
2006.05.28
Текущая дата в TDateEdit из RxLib


2-1147364078
appendix
2006-05-11 20:14
2006.05.28
иероглифы


4-1141287337
som
2006-03-02 11:15
2006.05.28
версия Windows