Brauch den code für das geteilt beim Taschenrechner

[Sharky]

Zitat von Saimen:

man darf auch nicht durch 1 teilen....

Seit wann darf man nicht durch 1 teilen?

Delphi-Quellcode:

begin
  if (SpinEdit2.Value=0) then
  begin
    ShowMessage ('Division durch 0');
  end
  else
  begin
    SpinEdit3.Value:=SpinEdit1.Value div SpinEdit2.Value
  end;
end;