b <> 0

[inherited]

Ich weiß nicht in wie weit das unter Delphi mit Standardtypen möglich ist, sonst könntest du den / Operator überladen und das Typweit abfangen und dein Wunschergebnis zurückliefern

Delphi-Quellcode:

type
  TMySingle = record
    Value: Single;
    class operator Divide(a: TMySingle; b: TMySingle): TMySingle;
    [...]


class operator TMySingle.Divide(a: TMySingle; b: TMySingle): TMySingle;
begin
  result.Value := a.Value;
  if b.Value <> 0 then
    result.Value := result.Value / b.Value
end;

Getippt, nicht getestet