Ganze Zahl immer auf nächste 50 runden?

[t.roller]

Nö: E2010 Inkompatible Typen: 'Integer' und 'Extended'

Delphi-Quellcode:

function RundenAufHundert(const Wert: Extended): Extended;
begin
  Result := RoundTo(Wert, 2);
end;