Проверка Image1.Picture=nil

← →
Denkop © (2003-09-08 15:44) [0]

В OnActivate пишу так:

Image1.Picture:=nil;
if Image1.Picture<>nil then
ShowMessage("not nil") else
ShowMessage("nil");

При открытии формы получаю not nil, при этом я собственноручно, строчкой выше, занулил Image1.Picture.
Или я что-то напутал или у меня это раньше работало...

ЗЫ Дурацкий вопрос, мне стыдно, но ничего не могу поделать :-(

← →
ZEE © (2003-09-08 15:48) [1]

зачем тебе Image1.Picture ?
Скорее тебе надо Image1.Picture.Graphic

← →
PVOzerski © (2003-09-08 15:49) [2]

Возможно, кто-то из другого потока в этом же процессе ухитряется писать по этому же адресу (например, выход за границы массива). Хотя больше похоже на глюк оптимизации.

← →
Andy BitOff (2003-09-08 15:52) [3]

Тебе точно надо использовать следующее:
Image1.Picture.Graphic:=nil;
if Image1.Picture.Graphic<>nil then
ShowMessage("not nil") else
ShowMessage("nil");

← →
Denkop © (2003-09-08 15:54) [4]

PVOzerski >> Всё намного проще
Image1.Picture.Graphic:=nil;
if Image1.Picture.Graphic<>nil then
ShowMessage("not nil") else
ShowMessage("nil");

Получаю nil

ZEE >> Ты был прав...

Благодарю!

Всё мне стыдно, ухожу :-()

← →
VMcL © (2003-09-08 16:43) [5]

>Denkop © (08.09.03 15:44)

Согласен, тебе должно быть стыдно :)

Picture - это свойство, при присваивании ему значения срабатывает метод SetPicture:
procedure TImage.SetPicture(Value: TPicture); begin FPicture.Assign(Value); end;

... который не изменяет значение самого поля (то есть адрес экземпляра объекта) в указанный тобой nil.

А ведь, не посмотрев исходники VCL, этого не узнаешь.

:-()
:-()
:-()
:-()
......

Проверка Image1.Picture=nil Найти похожие ветки