Funktion nach except Block nicht verlassen

[Tyrael Y.]

Wie wäre es wnen du zwei Funktionen/Proeduren draus machst.

Delphi-Quellcode:

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


procedure Meinform.ConnectServer();
begin
  BlaBla();
  ReadServer.Connected:=true;   // <--- hier kommt er nie an wenn einer der Server down ist
  ...                           // Fehler: I/O Error for File "MeineDatenbank"
                                //         Error while trying to open file
                                //         Das System kann die angegebene Datei nicht finden.
end;

Spricht was dagegen?


Gruß