Programm beendet sich einfach

[Neutral General]

Hi,

Du musst Exceptions abfangen. Tritt in der Console eine Exception auf, die nicht abgefangen wird, dann wird das Programm beendet.

Delphi-Quellcode:

While FRun do
begin
  try
    if IDatum<>Date then //Tages Wechsel
    begin
      ShowStatus('Tages Start');
      IDatum:=Date;

      If Not FServerClass.DB.Connected then
        FServerClass.DB.Connect;
    
      for i:=0 To Plugins.Plugins.Count-1 do
      begin
        TONLPlugin(Plugins.Plugins.Items[i]).UPDTabs;
        TONLPlugin(Plugins.Plugins.Items[i]).StartDay;
      end;

      if FServerClass.AnzClients=0 then
        FServerClass.DB.Disconnect;
    end; 

  //if KeyPress=VK_ESCAPE then
  //  FRun:=False;

    Sleep(1000);
  except
     writeln('Ein Fehler ist aufgetreten!');
  end;
end;