Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi Zwischenablage Zugriff verweigert (https://www.delphipraxis.net/211215-zwischenablage-zugriff-verweigert.html)

Sinspin 16. Aug 2022 15:32

AW: Zwischenablage Zugriff verweigert
 
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 16. Aug 2022 16:47

AW: Zwischenablage Zugriff verweigert
 
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 17. Aug 2022 09:13

AW: Zwischenablage Zugriff verweigert
 
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 17. Aug 2022 09:51

AW: Zwischenablage Zugriff verweigert
 
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 17. Aug 2022 11:01

AW: Zwischenablage Zugriff verweigert
 
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 17. Aug 2022 11:20

AW: Zwischenablage Zugriff verweigert
 
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 17. Aug 2022 11:36

AW: Zwischenablage Zugriff verweigert
 
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 17. Aug 2022 12:35

AW: Zwischenablage Zugriff verweigert
 
Zitat:

Sobald aber mindestens eine on-Bedingung da steht, werden alle nicht so abgefangenen Exceptions durchgelassen.
...again what learned. (Loddar) :stupid:

himitsu 17. Aug 2022 15:06

AW: Zwischenablage Zugriff verweigert
 
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 17. Aug 2022 16:09

AW: Zwischenablage Zugriff verweigert
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:22 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz