Gibts es Funktionen mit zwei Ergebnistypen!?

[Propeller]

Hallo!

Habe mal eine Frage bzgl. der Eigenschaften von Funktionen!
Gibts es Funktionen, die ein Result eines bestimmten Typs liefern, in Ausnahmefällen jedoch Resulttyp ein anderer sein kann.

Beispiel:

Delphi-Quellcode:

function division(x,y: extended): extended; //result := x/y
begin
  try
    if y=0 then showmessage('Bitte nicht durch Null teilen')
    else
    result := x/y
  except Fehlerbehandlung('Division'); result := 0 End;
end;

Nehmen wir einmal als Beispiel die Funktion f(x)=1/x.
Nun soll er die Funktionswerte von -5 bis 5 berechnen und in ein Memofold eintragen. Bei dem
(un)möglichen Fall 1/0, soll er jedoch nicht eine Zahl als Result liefern, sondern analog zu meinem Taschenrechner in das dazugehörige Feld für den Wert x=0 beispielsweise das Wort 'Error' hinschreiben. 'Error' wäre aber vom typ string und nicht vom geforderten Typ "extended". Gibt es da eine elegante Möglichkeit, einer Funktion in dem Ausnahmefall zu sagen, dass nun das Result vom Typ "string" sein soll?

Mit freundlichen Grüßen,

Propeller

[3_of_8]

Nein. Das ist nicht möglich.

[mkinzler]

Nur wenn du ihn als Variant deklarierst.

[3_of_8]

Oder vielleicht noch irgendwie als varianten Record... Guter Stil ist das aber nicht.

[sirius]

Doch, geht doch:

Delphi-Quellcode:

function test(a,b:integer):variant;
begin
  if b=0 then result:='error'
         else result:=a/b;
end;

procedure TForm1.Button1Click(Sender: TObject);
var e:variant;
begin
  e:=test(4,3);
  if TVarData(e).VType=varstring then label2.Caption:=e
                                 else label2.Caption:=floattostr(e);
end;

Schau in der Hilfe unter "TVarData"!

PS: Unter den Fleißkommatypen gibts auch den Zustand infinity, der ja (in der Komplexen Ebene) x/0 ist.

[omata]

Da man Verarbeitung und Ausgabe sowieso voneinander trennen soll, wäre das auch nicht sinnvoll.

Schmeiss doch eine Exception und fange sie in der Ausgabeunit ab, den vorgegebenen Text aus der Berechnung kannst du dann ausgeben, musst es aber nicht.

Delphi-Quellcode:

function division(x,y: extended): extended; 
begin
  if y = 0 then 
    Exception.Create('Bitte nicht durch Null teilen')
  else
    result := x/y;
end;

Aufruf:

Delphi-Quellcode:

begin
  try
    Erg:=division(1, 0);
  except
    on E: Exception do 
      ShowMessage(E.Message);
  end;
end;

@sirius: Bitte keinen Variant benutzen, wenn es nicht nötig ist.

Gruss
Thorsten

[3_of_8]

Ein Variant ist aber auch nur EIN Typ und nicht mehrere.

[mkinzler]

Zitat von 3_of_8:

Ein Variant ist aber auch nur EIN Typ und nicht mehrere.

Klar er kann so aber verschiedene Typen zurückgeben.

[sirius]

@omata
Aber wenn er, wie im beschriebenen Beispiel, numal keine Exception will. Er würde deinen code mit einer for-Schleife durchlaufen. Das ist auch nicht so der Hit.

1. Mit Variant sollte man sparsam umgehen (deswegen ja auch der Tipp mit infinity)
2. Wenn es aber nicht anders geht, Borland hat es ja auch aus irgend einem Grund gleich mit implementiert
3. Bläht sich der Code deswegen nicht unnötig auf
4. Kenne ich mindestens ein sher gutes MatheProgramm (Matlab) dass nur mit einer Art Varianten Datentyps arbeitet.

[Christian Seehase]

Moin Zusammen,

da die Parameter aber vom Typ Extended sind, und bei Variant schon bei Double Schluss ist, wird das auch nicht gehen.
Bleibt wohl nur die Exception, oder, eigentlich besser, die Prüfung vor dem Aufruf, was aber bei einer Gleitkommazahl ja auch schiefgehen kann.
Selber erzeugen muss man die Exception ja auch nicht, da Delphi von sich aus eine EDivisionByZero meldet.