Gibts es Funktionen mit zwei Ergebnistypen!?

[Hawkeye219]

Hallo,

hier ist noch eine Möglichkeit:

Delphi-Quellcode:

// uses Math (IsZero)

function Division (a, b: Double; var erg: Double): Boolean;
begin
  Result := not IsZero(b);
  if Result then
    erg := a / b;
end;

procedure TForm1.Button1Click (Sender: TObject);
var
  y: Double;
begin
  if Division(4, 3, y) then
    Label2.Caption := FloatToStr(y)
  else
    Label2.Caption := 'error';
end;

Gruß Hawkeye