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