| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не убивается форма [D7, XP]

Страницы:   < 1 2 >

neveGreen ©   (2008-12-23 22:33:00) 

Имеется код:

with TMyForm.Crate(Application) do
begin
 try
   ShowModal;
   if ModalResult=Ok then
   begin
     Траляля;
   end;
 finally
   Free;
 end;
end;

Вроде так... На строке free ошибка - обращение к не тому адресу памяти.
Что может вызывать такую ошибку. Потом при  вызове этого кода:
TMyForm_1 is already ecxist; и этот код уже не заработает. Может есть быстрый совет, потому что отслеживать что в ней твориться очень долго...
Заранее благодарю

---

Медвежонок Пятачок   (2008-12-24 09:21:00) [21]

не, caFree привело бы просто к ав.

ну не в файнали, так где-нить перед убийством. а кстати почему не в файнали?

---

Сергей М.   (2008-12-24 08:37:00) [22]

Да поди влупил в обработчик OnClose
Action := caFree
и ждет манны небесной

---

Германн   (2008-12-24 01:19:00) [23]

> Поросенок Винни-Пух ©   (23.12.08 23:58) [11]
>
> А так?
>
> finally
>   Application.ProcessMessages;

О каком Application.ProcessMessages может идти речь в finally? Окстись Поросёнок.

---

Поросенок Винни-Пух   (2008-12-23 23:58:00) [24]

А так?

finally
  Application.ProcessMessages;
  Free;
end;

---

DVM   (2008-12-23 23:56:00) [25]

> какие причины могут вызывать ошибку в операторе free

Какие угодно. Что на форме лежит? Что в коде при закрытии?
Сделай пустую форму, с ней такой же глюк? Нет? Тогда добавляй постепенно код и компоненты пока глюк не возникнет.

---

neveGreen   (2008-12-23 23:48:00) [26]

ладно... а если спросить так: какие причины могут вызывать ошибку в операторе free, что вызывает ошибку экзиста формы при повторном запуске этого кода? я, например, думаю, что некоторые объекты созданные при работе формы не дестроятся, пол дня убив я проверил, что вроде все уничтожаются. Может вы знаете другие причины?

---

Поросенок Винни-Пух   (2008-12-23 23:44:00) [27]

а что с формой не так?

не в обиду, просто наблюдение из жизни.
самые тупые на земле - блондинки.
но еще тупее их - некоторые айтишники.

зы откуда нам здесь знать что с ней не так, если ни строчки кода никто не видел?

---

DVM   (2008-12-23 23:43:00) [28]

> а что с формой не так?

там в 17 строке ошибка

---

neveGreen   (2008-12-23 23:40:00) [29]

> Проблема не в этом коде, проблема в форме.

а что с формой не так?

---

Anatoly Podgoretsky   (2008-12-23 23:21:00) [30]

> neveGreen  (23.12.2008 22:33:00)  [0]

Вот рабочий

    begin
//       Траляля;
    end;


---

Поросенок Винни-Пух   (2008-12-23 23:12:00) [31]

а монитор протирал?

---

neveGreen   (2008-12-23 23:11:00) [32]

Я убрал ее с автокрейта...

---

DVM   (2008-12-23 22:58:00) [33]

Так вот попроще будет:

with TMyForm.Create(Application) do
 try
   case ShowModal of
     mrOK:
       begin
         //Траляля;
       end;
     mrCancel:
       begin
         //Траляля2;
       end;
    end;
 finally
   Free;
 end;

Проблема не в этом коде, проблема в форме.

---

DVM   (2008-12-23 22:50:00) [34]

> neveGreen   (23.12.08 22:33)  

это нерабочий код

---

Страницы:   < 1 2 >

Наверх