Simulering af fejl

Det kan du vel sagtens.

Division med nul er formentlig en af de nemmeste af simulere.

nu har jeg aldrig lavet noget delphi og kender ikke sproget men nedenstående skulle give et godt udgangspunkt->

function Fact(i);
begin
if (i == 1) then Return  1
else Return i * Fact(i);
end;

og så kald
fact(0)

så vil den ret sikkert komme med en outofmemory  eller tilsvarende:)

arne_v - Hvordan?

jelzin101 -  Din funktion virke rikke

for at citere mig selv :
"Nu har jeg aldrig lavet noget delphi og kender ikke sproget men nedenstående skulle give et godt udgangspunkt"

betydende - jeg giver dig noget pseudoagtig kode som du så selv skal lave om til gyldig delphi syntax. hvilket ikke burde volde de store problemer.

jep jep...så det nu

i := 0;
  i := 1 div i;

bør give en exception !

nope... det gør den ikke

Jo nu gør den, hvis jeg satte en showmessage(inttostr(i)); ind efter, så gjorde den
delphi har jo slettet det når det ikke blev brugt åbenbart

Hvis i er erklæret integer og du sætter i til nul og derefter
dividerer et med i, så skal du få en exception.

Nå.

OK virkede din OnException så ?

Ved ikke om du lige vil hjælpe lidt til? Når jeg kører den så går den ikke over på min egen  procedure

jeg har sat Application.OnException := minprocedure;

procedure TfrmMain.MyExceptions(Sender: TObject; E: Exception);
begin
  MessageDlg('Der er fundet en fejl' + #13#10#13#10 + 'Fejlnavn: ' + E.ClassName + #13#10 + 'Fejl: ' + E.Message, mtError, [mbOK], 0);
end;

Jeg er ikk ehelt sikker på at jeg forstår din kode.

Application.OnException := minprocedure

procedure TfrmMain.MyExceptions

hvor bliver minprocedure og MyExceptions koblet ?

Application.OnException := frmMain.MyExceptions;

procedure TfrmMain.MyExceptions(Sender: TObject; E: Exception);
begin
  MessageDlg('Der er fundet en fejl' + #13#10#13#10 + 'Fejlnavn: ' + E.ClassName + #13#10 + 'Fejl: ' + E.Message, mtError, [mbOK], 0);
end;

procedure TfrmMain.MyExceptions(Sender: TObject; E: Exception);
begin
E.Message := 'Der er fundet en fejl' + #10+#10+'Fejl:'+#10+E.Message;
Application.ShowException(E);
end;

Skriv det her i din Form create:
Application.OnException := MyExceptions;

arne_v - Vil du have noget points, så lig et svar, ellers får armena dem..

ps hjalp efter jeg satte application.onexception i OnCreate

ok