b <> 0

[Die Muhkuh]

Delphi-Quellcode:

// Als Procedure
procedure MyDiv(var Dividend: Single; Divisor: Single);
begin
  if (Divisor <> 0) then
    Dividend := Dividend / Divisor;
end;

// Als Funktion:
function MyDiv(Dividend, Divisor: Single): Single;
begin
  if (Divisor <> 0) then
    Result := Dividend / Divisor;
end;

// Aufrufe:
// Procedure:
MyDiv(Dividend, Divisor);

// Funktion:
Dividend := MyDiv(Dividend, Divisor);

Vielleicht auch so:

Delphi-Quellcode:

// Als Funktion, die true zurück gibt, wenn geteilt wurde:
function MyDiv(var Dividend: Single; Divisor: Single): Boolean;
begin
  Result := Divisor <> 0;
  if (Result) then
    Dividend := Dividend / Divisor;
end;

// Aufruf
if (MyDiv(Dividend,Divisor)) then
  // es wurde geteilt
else
  // es wurde nicht geteilt

[edit] Schöne Variablennamen [/edit]