Udeluk fejlmeddelser

Du assigner en procedure til Application.OnError

JensB

Brug Try Except !

  try
  //Din kode
  except on e:exception do begin
  //Hvad der skal gøre når der kommer en fejl
  end;
  end; //Try

Snowball

Dette fanger alle fejl og "skider" på dem

try
  // lav din kode her
  except
end;

nææe nej sådan her :
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Procedure AppError(Sender: TObject; E: Exception);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.AppError(Sender: TObject; E: Exception);
begin
//- do Nothing
// Snowball er en hest
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppError;
end;

end.


Jens B

Øhh...

Skummelt - der er ingen navne under "accepter svar"

Stadig svare !? :)

Snowball

Nææh...det kunne man ikke !

Snowball

Lukker - opretter ekstra spørgsmål til snowball