program SealCalc;

uses
  memcheck,
  SysUtils,
  Forms,
  Umain in 'Umain.pas' {MainForm},
  JobNovice in 'Class\JobNovice.pas',
  JobKnight in 'Class\JobKnight.pas',
  JobPierro in 'Class\JobPierro.pas',
  JobMagician in 'Class\JobMagician.pas',
  JobWarrior in 'Class\JobWarrior.pas',
  JobPriest in 'Class\JobPriest.pas',
  JobCommon in 'Class\JobCommon.pas',
  JobCraftman in 'Class\JobCraftman.pas',
  Uabout in 'Uabout.pas' {AboutDialog};

  //
  //EasyDOM in 'Class\EasyDOM.pas',
  //
  //Equipment in 'Class\Equipment.pas';

{$R *.res}

{$IFDEF MemCheckStackTrace}
procedure GetExceptInfoFunc(Obj: TObject; var Message: string; var ExceptionRecord: SysUtils.PExceptionRecord);
begin
  if Obj is Exception then
  begin
    Message := Exception(Obj).Message;
    if Obj is EExternal then
      ExceptionRecord := EExternal(Obj).ExceptionRecord;
  end;
end;

procedure SetExceptMessageFunc(Obj: TObject; const NewMessage: string);
begin
  if Obj is Exception then
    Exception(Obj).Message := NewMessage;
end;
{$ENDIF}

begin
{$IFDEF MemCheckStackTrace}
  // 例外ハンドラをインストール
  MemCheckInstallExceptionHandler(GetExceptInfoFunc, SetExceptMessageFunc);
{$ENDIF}

  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

楽天モバイル[UNLIMITが今なら1円] ECナビでポインと Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！

無料ホームページ 無料のクレジットカード 海外格安航空券 解約手数料０円【あしたでんき】 海外旅行保険が無料！ 海外ホテル