🚀 go-pugleaf

Jacek Malinowski <jacemali@friko7.onet.pl> napisał(a) w artykule
<7i1t5n$img$1@korweta.task.gda.pl>...
> Jak nalezy obsłuzyc ten wyjątek z własny komunikatem ?
> I gdzie w Delphi 4.0 włącza się w opcjach obsługe wyjątków ?

1. Opisz może przy pomocy jakich komponentów łączysz się z bazą danych.

2. Tools -> Debugger options -> Language exceptions.

Traptak

> Jak nalezy obsłuzyc ten wyjštek z własny komunikatem ?

Ponizej jest kawalek kodu z D3


procedure TForm1.BledyOtwarciaZbioru(eResult: EDBEngineError;
                                     nrZb: Byte);
with eResult.Errors[0] do begin
  if Category=40 then costam1
    else
      if (Category=43) and (SubCode=50) then costam2
  end

W miejscu <costam> wstaw sobie komunikat

Jacek Malinowski wrote in message <7i1t5n$img$1@korweta.task.gda.pl>...
>Jak nalezy obsłuzyc ten wyjątek z własny komunikatem ?
>I gdzie w Delphi 4.0 włącza się w opcjach obsługe wyjątków ?


Proponuje tak:

try

.....
except
on E : EDBEngineError do
     begin
        if Errors[ErrorCount - 1].ErrorCode = tu_kod_bledu then
         zrob_cos_tam
        else raise;   // jezeli blad o innym kodzie niz tu_kod_bledu
      end
else raise;      // jezeli blad rozny od EDBEngineError
end;

A co do tej obslugi wyjatkow, to nie wiem czy o to ci chodzi ale zajrzyj do
Tools | Debugger Options

PK