Funktion auf Erfolg testen

[thomasch]

Hallo,
wie testet man am besten, ob eine Funktion "erfolgreich" war?

Beispiel:
Eine Funktion soll einen Wert (von woanders) ermitteln und diesen zurückgeben. Nun kann aber beu dieser Ermittlung einiges schief gehen, und unter Umständen dieser Wert nicht geliefert werden.

Der Idealfall wäre sowas wie "if not mywert then exit", mit mywert <> bool.

Mir schwebt vor:
- entweder eine globale "funktionserfolgvariable" zu definieren oder
- jede Funktion einen bool wert zurückgeben lassen und die Rückgabewerte global definieren.

Ich denke, die zweite Variante ist Blödsinn. Bei der ersten Variante habe ich aber auch Bauchschmerzen.

Wie geht das eleganter?

Danke schon mal



Thomasch

[Mario]

Dafür gibt es auch noch die Möglichkeit der Exceptions. Eleganter gehts meist kaum.

[Steve]

Hi,

versuchs mal u.U. mit nem VAR-Parameter:

Delphi-Quellcode:

FUNCTION MeineFkt(a,b,c:TMeineParameter; VAR Success : Boolean) : TMeinRueckgabeWert;

// Anwendung:
...
VAR Erfolg : Boolean;
..
Erfolg := FALSE;
Ergebnis := MeineFkt(1,2,3,Erfolg);
IF Erfolg THEN
BEGIN
  ...
END;

In "MeineFkt" muss dann Success:=True; gesetzt werden, wenn alles erfolgreich abgearbeitet wurde.
Oder alternativ OUT statt VAR :)


Gruß
Stephan :dance:

[Sharky]

Hai thomasch,

eigentlich gibt es nur zwei Möglichkeiten.
a) Die Funktion liefert ein Boolean für den Erfolg und das Ergebniss in einem VAR-Parameter
b) Die Funktion liefert einen eindeutigen Wert zurück wenn etwas fehlgeschlagen ist

[thomasch]

Ok,
danke für Eure schnelle Hilfe :-D

Thomasch

[DGL-luke]

was z.b. oft verwendet wird: bei misserfolg liefert eine funktion, die normalerweise nur positive zahlen zurückgibt, -1 zurück.
sprich einen wert, der eigentlich nicht in der ergebnismenge liegt.