Zwischenablage Zugriff verweigert

[Sinspin]

Gerade in dem Fall das bereits eine Exception ausgelößt worden ist, ist raise; wirklich am besten.
Du würdest sonst ja die anderen Exception Informationen verbergen.

[himitsu]

In diesem Fall ist es ja einfach, denn es gibt bereits eine "andere" Exception-Klasse.

Delphi-Quellcode:

else
begin
  raise EClipboardException.Create('Cannot read clipboard after fifty attempts');

Aber es ist ebenfalls extrem unschön, wenn man die eigentliche Exception sinnlos vernichtet.

Delphi-Quellcode:

else
begin
  raise EClipboardException.Create('Cannot read clipboard after fifty attempts'#10#10 + E.Message);

Delphi-Quellcode:

// hier bleibt im nächsten E.InnerException die ursprüngliche Exception erhalten
else
begin
  Exception.RaiseOuterException(EClipboardException.Create('Cannot read clipboard after fifty attempts');

Schade ist nur, dass hauseigenen im ShowException von Delphi so Eingies einfach grob fahrlässig vergessen wurde,
aber zumindestens innerhalb des Programms kommt man dennoch an InnerException ran.

[haentschman]

Boah-ey...

...ihr findet immer ein Haar in der Suppe.

Besser so?

Delphi-Quellcode:

except
  on E: EClipboardException do
  begin
    Inc(RetryCount);
    if RetryCount < 50 then
    begin
      Sleep(20)
    end
    else
    begin
      raise EClipboardException.Create('Cannot read clipboard after fifty attempts.' + sLineBreak + 'Originalmessage: (' +  E.Message + ')');
      // Exit(''); // Alternativ statt raise
    end;
  end
  else
    raise;
end;

[Uwe Raabe]

Zitat von haentschman:

...ihr findet immer ein Haar in der Suppe.

Das else raise ist überflüssig, da alle nicht durch on abgefragten Exceptions automatisch durchgeleitet werden

[haentschman]

Zitat:

da alle nicht durch on abgefragten Exceptions automatisch durchgeleitet werden

...ist das neu? Ich habe "gelernt", soweit das möglich ist, daß im Exception Block die Exception nicht weitergeleitet wird. Warum machen dann manche leere Exception Blöcke? ...um die Exception zu blocken.

[Delphi.Narium]

Nein, das ist nicht neu, in Delphi 7 ist das Verhalten auch so.

Delphi-Quellcode:

Try
  i := 0;
  k := 1;
  x := k / i;
except
  on EZeroDivide do begin
    MessageDLG('Wer teilt denn hier durch 0?',mtError,[mbOk],0);
  end;
  on EMathError do begin
    MessageDLG('Irgendein mathematischer Fehler!' + sLinebreak + e.Message,mtError,[mbOk],0);
  end;
  // ... weitere on EIrgendwas-Blöcke
  // Wenn das vorhanden, landen hier alle übrigen Fehler.
  on e : Exception
    // Das macht man nicht ohne sinnvollen Inhalt, weil dann alle (übrigen) Fehler ignoriert werden.
  end;
end;

Try
  i := 0;
  k := 1;
  x := k / i;
except
  on EZeroDivide do begin
    MessageDLG('Wer teilt denn hier durch 0?',mtError,[mbOk],0);
  end;
  on EMathError do begin
    MessageDLG('Irgendein mathematischer Fehler!' + sLinebreak + e.Message,mtError,[mbOk],0);
  end;
  // ... weitere on EIrgendwas-Blöcke
  on e : Exception
    MessageDLG('Es ist ein (beliebiger) Fehler (außer den davor behandelten) aufgetreten!' + sLinebreak + e.Message,mtError,[mbOk],0);
  end;
end;

Try
  i := 0;
  k := 1;
  x := k / i;
except
  on EZeroDivide do begin
    MessageDLG('Wer teilt denn hier durch 0?',mtError,[mbOk],0);
  end;
  on EMathError do begin
    MessageDLG('Irgendein mathematischer Fehler!' + sLinebreak + e.Message,mtError,[mbOk],0);
  end;
  // Alle bis hier nicht "abgearbeiteten Fehler" werden weitergereicht.
  // Das Programmverhalten ist dann so, als gäbe es keine Fehlernbehandlung.
end;

Die übelste Variante ist:

Delphi-Quellcode:

try
  i := 0;
  k := 1;
  x := k / i;
except
end;

Hier wird einfach alles, was so an Fehlern auftreten kann, schlicht und einfach ignoriert.

[Uwe Raabe]

Es ist in der Tat so, dass ein leerer Exception-Block alle Exceptions abfängt. Sobald aber mindestens eine on-Bedingung da steht, werden alle nicht so abgefangenen Exceptions durchgelassen.

[haentschman]

Zitat:

Sobald aber mindestens eine on-Bedingung da steht, werden alle nicht so abgefangenen Exceptions durchgelassen.

...again what learned. (Loddar)

[himitsu]

Ist zwar irgendwie nicht ganz verständlich/konsequent,
aber ein ELSE ohne ON IF gibt es eh nicht.

Also mit ON gibt es, falls kein ELSE vorhanden, ein implizites else raise; .





OMG, ein raise TObject.Create; würde also durch alle Try-Except durchrauchen, welche ein ON ohne ELSE enthalten, was in der RTL/VCL praktisch fast immer so ist,

mit wenigen Ausnahmen, weswegen aus einem TButton-Click doch nicht die ganze Anwendung komplett verreckt.

Delphi-Quellcode:

procedure TWinControl.MainWndProc(var Message: TMessage);
begin
  try
    ...
  except
    Application.HandleException(Self);
  end;

[Uwe Raabe]

Zitat von himitsu:

OMG, ein raise TObject.Create; würde also durch alle Try-Except durchrauchen, welche ein ON ohne ELSE enthalten

Das würde ein raise EProgrammmerNotFound.Create('Hurz') aber vermutlich auch. Aber vielleicht hat ja einer ein on E: TObject do da stehen.