Gibts es Funktionen mit zwei Ergebnistypen!?

[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.