Исключительная ситуация

[Codeart]

Вот такая ситуация . Хочу сделать перехват системного сообщения , что файл не найден . И вместо системного сообщения чтобы выдавалось мое . Проблема в том , что мое сообщение "Файл Memo1.txt не найден !" выводиться не вместо системного , а перед или после него .

try
{
Memo1->Lines->LoadFromFile( "Memo1.txt" );

}
catch( ... )
{

ShowMessage( "Файл Memo1.txt не найден !" );
}

[Stilet]

Не хочешь заменить try на IF с функцией проверки существования файла?

[Codeart]

FileExists вроде .Как ето реализовать ?

[min@y™]

FileExists вроде .Как ето реализовать ?

if (FileExists("Memo1.txt"))
  try
  {
    Memo1->Lines->LoadFromFile(  );
  }
  catch( ... )
  {
    ShowMessage( "Shit happens! :((" );
  }
else ShowMessage( "Файл не найден." );

[Codeart]

ехх , shit happens . результат тот же . сообщение выводиться , но системная ошибка тоже .

[min@y™]

покажь кодЪ. и скриншоты/видео давай!
Жалко, билдера у меня нет, а ставить неохото.

[Stilet]

сообщение выводиться , но системная ошибка тоже .

Ты запусти программу не из под Билдера.
Если запускать в режиме отладки, то системные сообщения тоже будут.
Запусти ее просто так.

[Codeart]

2 варианта кода , результат тот же , сначала системная ошибка , далее та , что задана . Ошибки запуска ехе файла и со среды

__fastcall TPagesDlg::TPagesDlg(TComponent* AOwner)
	: TForm(AOwner)
try
{
Memo1->Lines->LoadFromFile( "Memo1.txt" );
}
catch( ... )
{

ShowMessage( "Файл Memo1.txt не найден !" );
}
---------------------------------------------------------------------------------

void __fastcall TPagesDlg::FormCreate(TObject *Sender)
{
Memo1->Lines->LoadFromFile("Memo1.txt") ;

}

ИЛИ ТВОЙ ВАРИАНТ --------------------------------------------------------------

__fastcall TPagesDlg::TPagesDlg(TComponent* AOwner)
	: TForm(AOwner)
{
if (FileExists("Memo1.txt"))
  try
  {
    Memo1->Lines->LoadFromFile(  );
  }
  catch( ... )
  {
    ShowMessage( "Shit happens! :((" );
  }
else ShowMessage( "Файл не найден." );
}
--------------------------------------------------------------------------------
void __fastcall TPagesDlg::FormCreate(TObject *Sender)
{
Memo1->Lines->LoadFromFile("Memo1.txt") ;

}

[min@y™]

А где ж сообщения "Shit happens" и "Файл не найден"?
На втором скришоте не исключение, а уведомление дебаггера, из-под которого прога запущена. EFOpenError - класс исключения. Кстати, в папке я тоже не вижу файла Memo1.txt.

[Stilet]

void __fastcall TPagesDlg::FormCreate(TObject *Sender)
{
Memo1->Lines->LoadFromFile("Memo1.txt") ;

}

А где тут проверки?