Bei if immer else??

anx · Beiträge: 16

Hallo zusammen,
ich wollte gerade folgende Funktion schreiben:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

function pot(bas,poz:integer):integer;
begin
 if(poz=0) then
  result:=1;
 result:=pot(bas,poz-1)*bas;
end;

Das funktioniert aber nicht, da es zu einem StackOverflow kommt. Ich bin von Haus aus C++ler und war darüber sehr verwundert. Nun habe ich erfahren, dass ich auf jeden Fall nach "result:=1" else schreiben muss. Warum?? Ist das in Delphi Pflicht? Wird bei result die Funktion nicht beendet, sondern wird auch noch der Rest durchgeführt? Das ist in C++ anders!!!

Vielen Dank
lg, anx

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Fr 04.12.2009 um 18:52

elundril · Verfasst: Fr 04.12.09 13:29

nein, bei result wird die function nicht beendet. Result ist in Delphi eine ganz normale Variable und die function wird im normalfall bis zum ende abgearbeitet, deswegen musst dein result := pot(bas, poz-1)*bas; in einen else-Zweig auslagern.

Aber prinzipiell ist es nicht Pflicht ein else zu schreiben. Bei diesem Konstrukt wäre zb ein else sinnlos:

markieren

Delphi-Quelltext

1:
2:

  if x=3 then
    Showmessage('x ist 3');

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

anx · Beiträge: 16

Achso...das wusste ich nicht! Aber wie beende ich denn dann eine Prozedur? Ich C++ schreibe ich einfach "return", doch das funktioniert hier ja nicht.

außerdem. Wenn ich bei einer for Schleife "to 5" schreibe, ist es dann inklusive oder exklusive 5?

Vielen Dank
lg, anx

iKilledKenny · Verfasst: Fr 04.12.09 13:39

Eine Routine wird mit

markieren

Delphi-Quelltext

1:

Exit;

verlassen.
Ja, bei

markieren

Delphi-Quelltext

1:
2:

for i := 0 to 5 do
  DoSomething (i);

ist die 5 mit dabei.

anx · Beiträge: 16

Ok, oh...man! Ich bevorzuge C++, aber hätte ich mit Delphi angefangen, dann wäre es wohl genau andersherum!

Vielene Dank euch beiden!

lg, anx

elundril · Verfasst: Fr 04.12.09 13:42

wenn du exit verwendest musst du das aber mit in den then-zweig packen. außerdem is exit nicht gerade schöner programmierstil und sollte vermieden werden. in diesem fall kann er sogar elegant und zeitunaufwändig vermieden werden!

btw: pro frage ein Topic aufmachen

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

iKilledKenny · Verfasst: Fr 04.12.09 13:53

elundril hat folgendes geschrieben :

außerdem is exit nicht gerade schöner programmierstil und sollte vermieden werden.

Da kann man ja trefflich drüber streiten. Ich denke, in vielen Fällen erhöht Exit einfach die Übersichtlichkeit in großen Routinen.

jaenicke · Verfasst: Fr 04.12.09 14:01

iKilledKenny hat folgendes geschrieben :

Ich denke, in vielen Fällen erhöht Exit einfach die Übersichtlichkeit in großen Routinen.

Der Fehler liegt woanders, siehe Markierung. :mrgreen:

Wenn man übersichtliche modulare Routinen schreibt, dann ist es gar nicht so wichtig ob man Exit benutzt oder nicht, da es so oder so übersichtlich bleibt. Wenn man so viele Zeilen in einer Routine hat, dass es unübersichtlich wird, dann hat man meistens (von Ausnahmefällen einmal abgesehen, manchmal gehts kaum anders) etwas falsch gemacht.

iKilledKenny · Verfasst: Fr 04.12.09 14:22

jaenicke hat folgendes geschrieben :

iKilledKenny hat folgendes geschrieben :

Ich denke, in vielen Fällen erhöht Exit einfach die Übersichtlichkeit in großen Routinen.

Der Fehler liegt woanders, siehe Markierung. :mrgreen:

Da gebe ich dir recht, ich meine aber sowas in groß, was Threadersteller ganz oben begonnen hat.
Anstelle von

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if (AString = 'A') then
  begin
  end
else
  if (AString = 'B') then
    begin
    end
  else
    if (AString = 'C') then
      begin
      end
    else
      ...

ist sowas viel übersichtlicher:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

if (AString = 'A') then
  begin
    ...
    Exit;
  end;
if (AString = 'B') then
  begin
    ...
    Exit;
  end;
if (AString = 'C') then
  begin
    ...
    Exit;
  end;

Das hängt auch damit zusammen, dass ich eine maximale Zeichenanzahl von 80 pro Zeile habe...

Nichtsdestotrotz habe ich schon beim Absenden des letzten Postings gemerkt, dass das wieder eine Grundsatzdiskussion werden könnte... :beer:

FinnO · Verfasst: Fr 04.12.09 15:45

kann man nicht exit mit parameter wie return benutzen :???:

jaenicke · Verfasst: Fr 04.12.09 16:21

FinnO hat folgendes geschrieben :

kann man nicht exit mit parameter wie return benutzen :???:

Ab Delphi 2009 ja, da mache ich das auch, aber in Delphi 2007 und früher ging das noch nicht. ;-)

elundril · Verfasst: Fr 04.12.09 21:21

hatte ich nun recht oder hab ich *mist*e erzählt? :gruebel:

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

BenBE · Verfasst: Fr 04.12.09 22:12

Bei sowas entweder Case Of oder Else If verwenden. Wobei der Fehler wie gesagt die Erstellung großer Routinen überhaupt ist ;-)

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

jaenicke · Verfasst: Fr 04.12.09 22:17

elundril hat folgendes geschrieben :

hatte ich nun recht oder hab ich *mist*e erzählt? :gruebel:

Ab Delphi 2009 funktioniert das z.B. so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

function pot(bas, poz: integer): integer;
begin
  if poz = 0 then
    Exit(1);
  Exit(pot(bas, poz - 1) * bas);
end;

Aber ich finde das eher schlecht zu überblicken.

Dennoch gibt es auch Fälle, in denen andere Wege umständlicher wären, an denen ich Exit gerne so nutze. (Es war allerdings schon etwas gewöhnungsbedürftig. :mrgreen:

)

BenBE · Verfasst: Fr 04.12.09 22:29

Naja, hätten sie's wenigstens Return genannt ;-)

... Dann wär das wenigstens halbwegs C-Kompatibel ^^

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme