Liebe Gemeinde,
wir haben folgenden Code als Methode eines Forms:
Code:
function TFormWarten.IstTagesListe: Boolean;
begin
try
Result := false;
With ComboBoxListe, Items do
if (ItemIndex>=0) and (ItemIndex<Count) then
Result := IstTagesListe(Integer(Objects[ItemIndex]));
except
Result := false;
end;
end;
In manchen Situationen gibt es eine Zugriffsverletzung in der Zeile mit dem With bzw. eines danach mit ItemIndex (also nicht bei dem Cast von Objects auf Integer). Was mich aber fasziniert ist die Tatsache, dass die
Exception durchgeht und im OnException-Handler der Applikation landet. Wenn ich manuell ein
rauise Excpetion.Create('Test');
reinschreibe, passiert das nicht, die
Exception wird immer schön brav mit dem except-Handler abgefangen.
Kann mir das wer erklären?
Danke
Stefan