AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Aufrufende Prozedur verlassen

Ein Thema von fkerber · begonnen am 28. Mai 2006 · letzter Beitrag vom 28. Mai 2006
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#1

Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:35
Hi!

Ich hätte da mal eine Frage (wer hätt's gedacht)...


Ich habe mir eine Prozedur "Error" geschrieben:
Delphi-Quellcode:
procedure Error(msg: String);
begin
  MessageDlg(msg,mterror,[mbOk],0);
end;
Die wird immer dann aufgerufen, wenn ein schwerwiegender Fehler aufgetreten ist, sodass die Prozedur verlassen werden soll, in der der Fehler auftrat.

Momentan sieht das dann bspw. so aus:

Delphi-Quellcode:
 if not IsSthSelected(Listbox1) then
  begin
    Error('Sie müssen das Bild mindestens einem Gebäude zuordnen');
    exit;
  end;
Bedeutend schöner fände ich es jetzt allerdings, wenn die Error-Prozedur auch dieses Exit gleich mit veranlassen könnte. Geht das irgendwie?


Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
Dax
(Gast)

n/a Beiträge
 
#2

Re: Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:37
Nun ja.... Nein. Dazu müsste Error() die Stackgröße des Aufrufers kennen, den Stack bis zur Rücksprungadresse abräumen und dann erst zum Ende kommen. Geht bestimmt irgendwie, aber bestimmt nicht einfach^^
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#3

Re: Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:38
Hi!

Hmm, das klingt wie eine "zu-Fuß-Lösung"
Wenn es nur eine solche gibt, bleibt es wie es ist. Ich dachte mir schon, dass es da nichts "schönes" gibt, aber ich wollt dann doch mal fragen.


Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
Olli
(Gast)

n/a Beiträge
 
#4

Re: Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:39
Sowas erreichst du nur mit Exceptions, wenn du sie zu einem "höheren" Exception-Handler durchschlagen läßt. Ansonsten wüßte ich nicht, wie sich das in Delphi realisieren ...
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:42
Wäre IMHO auch nicht sinnvoll, da ja die Ablauflogik/Programmfluß unterbrochen wäre.
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#6

Re: Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:43
Hi!

Gut, dann habt ihr mich überzeugt
Wie gesagt, ich dachte es mir, aber sicher ist sicher...


Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
Olli
(Gast)

n/a Beiträge
 
#7

Re: Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:44
Zitat von mkinzler:
Wäre IMHO auch nicht sinnvoll, da ja die Ablauflogik/Programmfluß unterbrochen wäre.
Meinst du Exceptions? Im Gegenteil, es gibt viele Leute die es für den saubereren Programmierstil halten den Exceptionhandler irgendwo weit "oben" anzusiedeln und Exceptions durchschlagen zu lassen. So behandelt man die Exceptions nämlich nur an wenigen ausgewählten Stellen statt überall im Code verstreut.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:48
Nein, die Tatsache, eine Prozedur/Funktion von einer aufgerufenden Prozedur/Funktion mitbeenden zu lassen.
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#9

Re: Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:50
Wieso? Oft lass ich Exceptions auch bis ganz oben durchkommen, damait dann einfach eine Fehlermeldung kommt.

Wenn eine Vorrausetzung nicht gegeben ist - warum solltest du mit der Prozedur weitermachen ?
  Mit Zitat antworten Zitat
Olli
(Gast)

n/a Beiträge
 
#10

Re: Aufrufende Prozedur verlassen

  Alt 28. Mai 2006, 13:52
Zitat von mkinzler:
Nein, die Tatsache, eine Prozedur/Funktion von einer aufgerufenden Prozedur/Funktion mitbeenden zu lassen.
Das stimmt.

Aber mancher findet halt die C-Variante ganz gut, wo die Funktion Error() ja zumindest einen Rückgabewert haben könnte. Wodurch man dann in der selben Zeile mit einem "return Error(...)" die aufrufende Funktion verlassen kann

Ich persönlich stricke meinen Code in C immernoch lieber mit verschachtelten IFs statt mit kurzen IF-NOTs und return.

Zitat von jfheins:
Wenn eine Vorrausetzung nicht gegeben ist - warum solltest du mit der Prozedur weitermachen ?
Ein ...
Delphi-Quellcode:
function bla():TDingens;
begin
  if IsSthSelected(Listbox1) then
  begin
    // ... mach was
  end
  else
  begin
    Error('Sie müssen das Bild mindestens einem Gebäude zuordnen');
  end;
end;
täte es aber auch ... oder noch "eleganter" (?):
Delphi-Quellcode:
function bla():TDingens;
begin
  if IsSthSelected(Listbox1) then
  begin
    // ... mach was
  end
  else
    Error('Sie müssen das Bild mindestens einem Gebäude zuordnen');
end;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz