try-except Problem

[himitsu]

Zitat von thetrue:

Delphi-Quellcode:

except
  end;
end;

Tut mir Leid, aber die Codeformatierung ist echt schlecht, denn es sieht ja so aus, als wenn dort ein einsames END drinstehen würde.

@xZise: da könnte noch ein BEGIN-END wegfallen, da TRY-EXCEPT auch einen eigenständigen Block darstellt.

Delphi-Quellcode:

procedure Tfrm_main.Timer2Timer(Sender: TObject);
begin
if server.Connected then
  try
    tmptxt := server.ReadLn(':cmd\*\')
    timer1.Enabled := true;
  except
  end;
end;

PS: wie mkinzler schon andeutete ... der Debugger zeigt selbst nochmal die Exceptionmeldung an (wenn dieses Verhalten nicht extra in den Projektoptionen deaktiviert wurde.

Also die erste Exceptionmeldung kommt vom Debugger und danach kommt erst die Exceptionmeldung vom Programm.
Und wenn die Exception innerhalb von TRY-EXCEPT auftritt, dann kommt immernoch die Meldung vom Debugger und die vorm Programm wird unterdrückt.


Außerhalb des Debuggers kommt dann natürlich keine Meldung mehr vom Debugger, wie auch ... ist ja keiner mehr da.

PSS: aber das hättest du auch im Forum nachlesen können, denn es gibt schon unmassen von diesen Fragen, wo es jedesmal wieder gesagt wird -.-''