Funktion nach except Block nicht verlassen

[Mario]

Bei SOAP hatte ich mit ähnlichen Problemen zu kämpfen. Nach dem wir als Clients für unsere Anwendung nur WinNT oder höher zugelassen haben, haben wir das Problem mit 3 fachen try-except-Blöcken in den Griff bekommen:

Ein einfachen try-Except-Block um den fehleranfälligen Aufruf.
Ein einfachen try-Except-Block um den Aufruf der gesamten Procedure.
Exceptionbehandlung bei Application.OnException (oder so ähnlich).

Naja, wir haben dann auch Logs geschrieben und die Levels 1-3 vergeben. Die Fehler wurden immer wieder auf den verschiedensten Stufen abgefangen.

[danielA]

Hallo nochmal,

Ich habs jetzt mal wie Mario beschrieben in mehrere Try...Except Blocks gesetzt jetzt funzt es.

Delphi-Quellcode:

procedure Meinform.ConnectServer(); 
var i : integer; 
begin 
  for i:=0 to WriteServer.Count-1 do 
  begin 
    try
      try
        try 
          TIbDatabase(WriteServer[i]).Connected:=True; // WriteServer ist ein TListObjekt 
        except 
        end; 
      except 
      end; 
    except 
    end; 
  end; 
  ReadServer.Connected:=true;   
  ... 
end;

Er landet dann komischerweise, wie es sein muß, immer nach dem ersten except.
Naja, nicht schön aber der Code nach der Exception wird wenigstens ausgeführt.
Nochmal danke für die Antworten

Gruß
Daniel