In Delphi XE4 use System.SysUtils.Abort

--- In IBObjects@yahoogroups.com, "Jason Wharton" <jwharton@...> wrote:
>
> Try SysUtils.Abort.
>
> Jason
>
> > -----Original Message-----
> > From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com]On
> > Behalf Of G. Nau
> > Sent: Monday, March 13, 2006 4:55 AM
> > To: iBObjects@yahoogroups.com
> > Subject: [IBO] IBquery - OnError raises Exception, although
> > RaiseException:=False
> >
> >
> > I'm checking for duplicate entries during the post within the
> > query's onerror
> > event:
> > procedure TLager.IB_Query_BestellNrError(Sender: TObject;
> > const ERRCODE: Integer; ErrorMessage, ErrorCodes: TStringList;
> > const SQLCODE: Integer; SQLMessage, SQL: TStringList;
> > var RaiseException: Boolean);
> > begin
> > inherited;
> > if Pos('duplicate value',Errormessage.Text)>0 then
> > Begin
> > if Pos('IX_ZUSBESTELLNR',errormessage.text)>0 then
> > Begin
> > RaiseException:=False;
> > DBGrid_BestellNr.SetFocus;
> > BvOMessageBox('Die zusätzliche Bestell-Nr., die Sie
> > eingegeben
> > haben, gibt es bereits. Bitte prüfen und korrigieren Sie
> > das.', 'Doppelte
> > Zusatz-Bestell-Nr.', MB_OK);
> > End;
> > End;
> > end;
> >
> > This is detecting the duplicate insertion and showing the
> > messagebox. But
> > after that I got an exception EIB_DatasetError (Record not inserted),
> > although RaiseException is set to false.
> >
> > Did I make a mistake here or how can i prevent the exception
> > message to
> > the user?
> >
> > Regards
> > Gunther
>