You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
822 B
37 lines
822 B
//--------------------------------------------------------------------------- |
|
|
|
#include <fmx.h> |
|
#ifdef _WIN32 |
|
#include <tchar.h> |
|
#endif |
|
#pragma hdrstop |
|
#include <System.StartUpCopy.hpp> |
|
//--------------------------------------------------------------------------- |
|
USEFORM("Unit1.cpp", Form1); |
|
//--------------------------------------------------------------------------- |
|
extern "C" int FMXmain() |
|
{ |
|
try |
|
{ |
|
Application->Initialize(); |
|
Application->CreateForm(__classid(TForm1), &Form1); |
|
Application->Run(); |
|
} |
|
catch (Exception &exception) |
|
{ |
|
Application->ShowException(&exception); |
|
} |
|
catch (...) |
|
{ |
|
try |
|
{ |
|
throw Exception(""); |
|
} |
|
catch (Exception &exception) |
|
{ |
|
Application->ShowException(&exception); |
|
} |
|
} |
|
return 0; |
|
} |
|
//---------------------------------------------------------------------------
|
|
|