Re: The Debug Game: Russian Roulette

From: Skybuck Flying (nospam_at_hotmail.com)
Date: 02/01/05 

Date: Tue, 1 Feb 2005 18:18:42 +0100

Yup,

Unfortunately I do no longer have Delphi 6 installed... I removed it because
I needed space on my little drive... I have a bigger drive now... oh well..

Anyway I asked somebody else if he happened to have Delphi 6 installed... He
had Delphi 5 installed and the funny thing is it's indeed different =D

I can remember myself bitching in this newsgroup once about being pissed off
at exceptions and how unhandled exceptions made applications crash =D

I am very happy to see that this is now finally fixed/improved/taken care of
=D

Delphi 5 version a bit fucked up by icq copy&pasting hehehe but still..

It's clear that the excepting handling part was not there =D hihihihihihi.

procedure TApplication.Run;
begin
FRunning := True;
try
AddExitProc(DoneApplication);
if FMainForm <> nil then
begin
case CmdShow of
SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
end;
if FShowMainForm then
if FMainForm.FWindowState = wsMinimized then
Minimize else
FMainForm.Visible := True;
repeat
HandleMessage // NO exception handling ! ;)
until Terminated;
end;
finally
FRunning := False;
end;
end;

See once again below for delphi 7 version :P ;) with excepting handling =D

I still wonder if Delphi 6 had this excepting handling in place... probably
not... since I can remember an application not working anymore after an
exception... and I think while I was pissed at exceptions I was using D6 :)

I don't trust anybody else on this newsgroup lol... so I will just simply
have to re-install poor old delphi 6 to find out hihihihihihi.

Bye,
  Skybuck.

"Skybuck Flying" <nospam@hotmail.com> wrote in message news:...
> Little note though:
>
> "Use Debug DCU's" has to be checked... otherwise these kind of problems
> can't be debug properly :P
>
> The call stack will simply be unavailable as well as other things ;)
>
> It's also interesting to see how the unhandled exception is finally
handled
> by the application itself.
>
> It does make me wonder a bit of it always worked like that... or if that
is
> new behaviour in D7 ;)
>
> See // TATA :)
>
> procedure TApplication.Run;
> begin
> FRunning := True;
> try
> AddExitProc(DoneApplication);
> if FMainForm <> nil then
> begin
> case CmdShow of
> SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
> SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
> end;
> if FShowMainForm then
> if FMainForm.FWindowState = wsMinimized then
> Minimize else
> FMainForm.Visible := True;
> repeat
> try // TATA
> HandleMessage;
> except // TATA
> HandleException(Self); // TATA
> end; // TATA
> until Terminated;
> end;
> finally
> FRunning := False;
> end;
> end;
>
>
> Bye,
> Skybuck ;)
>
> "Skybuck Flying" <nospam@hotmail.com> wrote in message news:...
> > Lol *** Lol...
> >
> > Never mind....
> >
> > I figured out how to debug this game project etc. *** *** lol.
> >
> > Simply look at "View->Debug Windows->Call Stack"
> >
> > *** LOL... ohhhh that's what it's for =D
> >
> > Bye,
> > Skybuck.
> >
> >
>
>