Скачать: CL | DM;

Как прекратить выполнение программы в процессе инициализации?   Найти похожие ветки 

← →
Kot_   (2006-01-05 13:03) [0]

Есть код:

 Application.Initialize;
 Application.CreateForm(TFormPredpr, FormPredpr);
 Application.CreateForm(TFormIdentif, FormIdentif);
 FormIdentif.ShowModal;
 if closeprog=true then exit;
 Application.CreateForm(TFormLicevoi, FormLicevoi);
 Application.Run;

Выполнение программы прерывается, но выдается ошибка: «Runtime error 216 at 00403472», как этого избежать?

---

← →
Е.   (2006-01-05 13:08) [1]

Application.Initialize;
Application.CreateForm(TFormPredpr, FormPredpr);
Application.CreateForm(TFormIdentif, FormIdentif);
FormIdentif.ShowModal;
if closeprog=true then Application.Terminate;
Application.CreateForm(TFormLicevoi, FormLicevoi);
Application.Run;

---

← →
Kot_   (2006-01-05 13:11) [2]

Спасибо

---

← →
Плохиш ©   (2006-01-05 13:39) [3]


if not closeprog then
begin
  Application.CreateForm(TFormLicevoi, FormLicevoi);
  Application.Run;
end;


---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c