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