Gibts es Funktionen mit zwei Ergebnistypen!?

[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