Zwischenablage Zugriff verweigert

[Sinspin]

Gerade in dem Fall das bereits eine Exception ausgelößt worden ist, ist

Delphi-Quellcode:

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...8-)

...ihr findet immer ein Haar in der Suppe. :stupid: :zwinker:

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;

:wink:

[Uwe Raabe]

Zitat:

Zitat von haentschman (Beitrag 1510228)

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

Das

Delphi-Quellcode:

else raise

ist überflüssig, da alle nicht durch

Delphi-Quellcode:

on

abgefragten Exceptions automatisch durchgeleitet werden 8-)

[haentschman]

Zitat:

da alle nicht durch on abgefragten Exceptions automatisch durchgeleitet werden

...ist das neu? :gruebel: 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. :gruebel:

[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) :stupid:

[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

Delphi-Quellcode:

else raise;

. :shock:





OMG, ein

Delphi-Quellcode:

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:

Zitat von himitsu (Beitrag 1510247)

OMG, ein

Delphi-Quellcode:

raise TObject.Create;

würde also durch alle Try-Except durchrauchen, welche ein ON ohne ELSE enthalten

Das würde ein

Delphi-Quellcode:

raise EProgrammmerNotFound.Create('Hurz')

aber vermutlich auch. Aber vielleicht hat ja einer ein

Delphi-Quellcode:

on E: TObject do

da stehen.