2
0

Mandelbrot.cpp 768 B

123456789101112131415161718192021222324252627282930313233
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. USEFORMNS("MainUnit.pas", Mandelunit, MainForm);
  5. //---------------------------------------------------------------------------
  6. int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
  7. {
  8. try
  9. {
  10. Application->Initialize();
  11. Application->MainFormOnTaskBar = true;
  12. Application->CreateForm(__classid(TMainForm), &MainForm);
  13. Application->Run();
  14. }
  15. catch (Exception &exception)
  16. {
  17. Application->ShowException(&exception);
  18. }
  19. catch (...)
  20. {
  21. try
  22. {
  23. throw Exception("");
  24. }
  25. catch (Exception &exception)
  26. {
  27. Application->ShowException(&exception);
  28. }
  29. }
  30. return 0;
  31. }
  32. //---------------------------------------------------------------------------