Ошибка обработки исключений try...except

[Vova777]

procedure TForm1.FormCreate(Sender: TObject);
var
a,b,c,d: string;
rbb: integer;
begin
try
dir := GetCurrentDir;
fn:= 'C:\CNC SS v4.02\Config\Auto';
AssignFile(f,fn);
Reset(f);
readln(f,a);
Form1.ComboBox1.Text:= a;
readln(f,b);
Form1.ComboBox2.Text:= b;
readln(f,c);
Form1.ComboBox3.Text:= c;
readln(f,d);
Form1.ComboBox4.Text:= d;
closefile(f);
SelLang;
Form1.Timer1.Enabled:= True;
except
On EFilerError do
begin
rbb:=MessageDlg('Ошибка установки.Переустановите приложение заново.', mtError, [mbOk], 0) ;
exit;
end;
end;
end;

Не понимаю, что не так? Программа при создании формы должна открывать файл, если он не обнаружен то вывести сообщение и не запускаться. А она все равно запускается и вылетает ошибка Нет доступа к файлу и виснет потом.

Файл на месте всегда, это для исключения, если его не будет

[A-IX-2]

Даже если с exe`шника запустить?

[Vova777]

Сообщение от A-IX-2

Даже если с exe`шника запустить?

Для проверки я и запускаю с ехе-шника, предварительно специально убрав этот файл. Компилирую когда файл на месте. Мне и нужно с ехе-шника.

[Пепел Феникса]

скажите а зачем вы специализируете обработчик исключения?
да и знаете ли зачем служит тип EFilerError?

On EFilerError do

уберите, вам тут не нужна специализация.

[Vova777]

Сообщение от Пепел Феникса

скажите а зачем вы специализируете обработчик исключения?
да и знаете ли зачем служит тип EFilerError?

уберите, вам тут не нужна специализация.

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

[)Игнат(]

Уважаемый, оператором Exit; вы вышли из процедуры/функции.
Вам же нужно что-то вроде Halt;

[Vova777]

Сообщение от )Игнат(

Уважаемый, оператором Exit; вы вышли из процедуры/функции.
Вам же нужно что-то вроде Halt;

мне нужно завершить процедуру Form1.Create и завершить приложение не запуская дальше

[evg_m]

мне нужно завершить процедуру Form1.Create и завершить приложение не запуская дальше

Exit это завершить ТОЛЬКО процедуру. приложение оставить работать.
Halt это завершить приложение. Если завершаем приложение, то естественно будет завершена работа ВСЕХ процедур.
Application.terminate другой способ завершения приложения.

[GunSmoker]

Надо быстрее код дать, пока "специалисты" не насоветовали:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  protected
    function HandleCreateException: Boolean; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  raise Exception.Create('Going down!');
end;

function TForm1.HandleCreateException: Boolean;
begin
  Result := False;
end;

Если хочется показывать сообщение "красивше", чем сама Delphi, то:

Project/View Source:

program Project1;

uses
  Windows,
  SysUtils,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  try
    Application.Initialize;
    Application.MainFormOnTaskbar := True; // <- только для новых Delphi
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  except
    on E: Exception do
      Application.MessageBox(PChar(E.Message), PChar(String(E.ClassName)), MB_ICONSTOP or MB_OK);
  end;
end.

[GunSmoker]

Сообщение от )Игнат(

Уважаемый, оператором Exit; вы вышли из процедуры/функции.
Вам же нужно что-то вроде Halt;

Он не вышел. В его коде Exit не выполняется.

Сообщение от evg_m

Exit это завершить ТОЛЬКО процедуру. приложение оставить работать.
Halt это завершить приложение. Если завершаем приложение, то естественно будет завершена работа ВСЕХ процедур.
Application.terminate другой способ завершения приложения.

В его коде Exit не выполняется. Следовательно, его замена на Halt/Terminate ничего не даст.