Почему такое странное поведение/ D7

← →
O'ShinW © (2013-01-11 09:39) [0]

Захотелось сделать ошибку.
Пишу:

procedure TForm1.Button1Click(Sender: TObject);
var
F: TForm;
begin
F.Visible := false; // Жду AV, но исчезает форма TForm1
end;

аналогично, если
F.Hide;// Жду AV, но исчезает форма TForm1

более интересно, если написать
F.Visible := false;
F.Hide;
тогда пропадает кнопка Button1

← →
O'ShinW © (2013-01-11 09:48) [1]

AV таки получил, когда написал
F := TForm.Create(nil);
if F.Owner.ClassName = "" then ;

но это уже не важно, интереснее уже другое :)
ладно, что
>> исчезает форма TForm1
возможно что-то не проинициализировалось где-то
но как могло что
>> пропадает кнопка Button1

← →
И. Павел © (2013-01-11 09:49) [2]

> [0] O"ShinW © (11.01.13 09:39)

Просто попадаете на случайный адрес, вот и все.
Кстати, подобная штука уже как-то тут разбиралась.

← →
brother © (2013-01-11 09:56) [3]

> на случайный адрес

скорее всего на последний созданный данного типа...

← →
O'ShinW © (2013-01-11 10:00) [4]

> Кстати, подобная штука уже как-то тут разбиралась.

помню.. Не помню, чем закончилось.

> скорее всего на последний созданный данного типа

не, почему же тогда то на форму, то на кнопку

> на случайный адрес

Наверное.
Но истинно случайных чисел (адресов) не бывает :)

← →
Игорь Шевченко © (2013-01-11 10:16) [5]

> Почему такое странное поведение/ D7

Прокладку надо поменять

← →
И. Павел © (2013-01-11 10:22) [6]

А вот такой код уже приводит к AV, хотя строчка «Caption := ...» не должна менять адрес F.

procedure TForm1.Button1Click(Sender: TObject); var F: TForm; begin Caption := IntToStr(Integer(F)); F.Visible := false; end;

← →
брат Птибурдукова (2013-01-11 10:28) [7]

1. Ставим в настройках проекта балку use debug dcus
2. Билдим проект
3. Ставим бряку на интересующей строке
4. Жмём Ф9
5. Жмём батон1
6. Жмём Ф7
7. ???
8. Рассказываем на форуме, что выяснили
9. PROFIT!

← →
DevilDevil © (2013-01-11 11:31) [8]

> O"ShinW © (11.01.13 09:39)

я не могу понять, что тебя удивляет
стек - рабочая память, в нём лежит какой-то мусор
на определённый момент времени в стеке, где должна храниться переменная F - лежит указатель на Form1 в случае
F.Visible := false; // F.Hide;

а в более сложных конструкциях, используются дополнительные ячейки стека
и в таком случае F попадает на область памяти, в которую раньше была записана Button1
F.Visible := false; F.Hide;

AV получаешь потому, что Owner явно указываешь nil:
F := TForm.Create(nil); if F.Owner.ClassName = "" then ;

т.е. фактически твой AV код выглядит так:
if TObject(nil).ClassName = "" then ;

← →
DevilDevil © (2013-01-11 11:38) [9]

> И. Павел © (11.01.13 10:22) [6]
>
> А вот такой код уже приводит к AV, хотя строчка «Caption := ...» не должна менять адрес F.

а ты посмотри в дебаге чему равен адрес переменной @F в разных случаях и удивись

В приведеном коде TForm1 отсутствует, вообще нет

> брат Птибурдукова (11.01.13 10:28) [7]
8. Рассказываем на форуме, что выяснили

попали в
procedure TCustomForm.SetVisible(Value: Boolean);
begin
if fsCreating in FFormState then

> DevilDevil © (11.01.13 11:31) [8]

я понимаю почему получаю AV
непонятно, почему не получаю.

т.е., получается, новая переменная не обнуляется

ShowMessageFmt(" %d %d",[Integer(Button1), Integer(F)]); //один и тот же адрес.

хотя, по-логике должна бы = nil. разве нет?

← →
брат Птибурдукова (2013-01-11 15:07) [12]

> попали в
То есть шаг 7 пропущен...

> т.е., получается, новая переменная не обнуляется

обнуляются (и финализируются) только сложные типы
строки, интерфейсы, динамические массивы, варианты, структуры/статические массивы содержащие сложные типы

обычные (простые) переменные изначально не инициализируются
ни в Delphi, ни в С++
должен выдаваться ворнинг

глобальные переменные обнуляются

Почему такое странное поведение/ D7 Найти похожие ветки