Re: [fpc-pascal] FPCUnit test + raise E;

2013-09-23 Thread Marcos Douglas
On Thu, Sep 19, 2013 at 1:44 AM, Sven Barth wrote: > Am 18.09.2013 23:34 schrieb "Marcos Douglas" : > > >> >> On Tue, Sep 17, 2013 at 2:41 PM, Sven Barth >> wrote: >> > On 17.09.2013 17:27, Marcos Douglas wrote: >> >> >> >> On Tue, Sep 17, 2013 at 12:18 PM, Marcos Douglas >> >> wrote: >> >>

Re: [fpc-pascal] FPCUnit test + raise E;

2013-09-19 Thread Sven Barth
Am 18.09.2013 23:34 schrieb "Marcos Douglas" : > > On Tue, Sep 17, 2013 at 2:41 PM, Sven Barth wrote: > > On 17.09.2013 17:27, Marcos Douglas wrote: > >> > >> On Tue, Sep 17, 2013 at 12:18 PM, Marcos Douglas wrote: > > Another thing you could try (just for testing): change your exceptio

Re: [fpc-pascal] FPCUnit test + raise E;

2013-09-18 Thread Marcos Douglas
On Tue, Sep 17, 2013 at 2:41 PM, Sven Barth wrote: > On 17.09.2013 17:27, Marcos Douglas wrote: >> >> On Tue, Sep 17, 2013 at 12:18 PM, Marcos Douglas wrote: Another thing you could try (just for testing): change your exception handler procedure to a function that returns bool and

Re: [fpc-pascal] FPCUnit test + raise E;

2013-09-17 Thread Sven Barth
On 17.09.2013 17:18, Marcos Douglas wrote: I implemented -- but not up to Git yet -- some like that: procedure TghSQLHandler.DoOnException(E: Exception); var NewEx: EghSQLError; begin if Assigned(FOnException) then FOnException(Self, E) else begin NewEx := EghSQLError.

Re: [fpc-pascal] FPCUnit test + raise E;

2013-09-17 Thread Sven Barth
On 17.09.2013 17:27, Marcos Douglas wrote: On Tue, Sep 17, 2013 at 12:18 PM, Marcos Douglas wrote: Another thing you could try (just for testing): change your exception handler procedure to a function that returns bool and use it like this: === code begin === procedure TghSQLConnector.Connec

Re: [fpc-pascal] FPCUnit test + raise E;

2013-09-17 Thread Marcos Douglas
On Tue, Sep 17, 2013 at 12:18 PM, Marcos Douglas wrote: > On Sun, Sep 15, 2013 at 4:25 PM, Sven Barth > wrote: >> On 15.09.2013 13:05, Marcos Douglas wrote: >>> >>> [[cut]] >>> >>> >>> I tried. No makes difference. >>> (could you explain which the difference to call "raise" using "raise E >>> at

Re: [fpc-pascal] FPCUnit test + raise E;

2013-09-15 Thread Sven Barth
On 15.09.2013 13:05, Marcos Douglas wrote: On Sun, Sep 15, 2013 at 6:56 AM, Sven Barth wrote: On 15.09.2013 03:21, Marcos Douglas wrote: Hi, 1) I have a code like that: procedure TghSQLConnector.Connect; begin try FLib.Connect; except on E: Exception do DoOnExcep

Re: [fpc-pascal] FPCUnit test + raise E;

2013-09-15 Thread Marcos Douglas
On Sun, Sep 15, 2013 at 6:56 AM, Sven Barth wrote: > On 15.09.2013 03:21, Marcos Douglas wrote: >> >> Hi, >> >> 1) I have a code like that: >> >> procedure TghSQLConnector.Connect; >> begin >>try >> FLib.Connect; >>except >> on E: Exception do >>DoOnException(E); >>en

Re: [fpc-pascal] FPCUnit test + raise E;

2013-09-15 Thread Sven Barth
On 15.09.2013 03:21, Marcos Douglas wrote: Hi, 1) I have a code like that: procedure TghSQLConnector.Connect; begin try FLib.Connect; except on E: Exception do DoOnException(E); end; end; https://github.com/mdbs99/Greyhound/blob/0.1.8/src/ghsql.pas#L1565 2) DoOnEx

[fpc-pascal] FPCUnit test + raise E;

2013-09-14 Thread Marcos Douglas
Hi, 1) I have a code like that: procedure TghSQLConnector.Connect; begin try FLib.Connect; except on E: Exception do DoOnException(E); end; end; https://github.com/mdbs99/Greyhound/blob/0.1.8/src/ghsql.pas#L1565 2) DoOnException was implemented so: procedure TghSQLHandler