Hallo Frank,
etwas kompakter - wenn dich die höheren Rechenarten nicht stören - geht es so:
Delphi-Quellcode:
uses
Math;
function Norm(e: Extended; var dExp: Integer): Extended;
begin
dExp := Ceil(Log10(e)) - 3;
Result := e / Power(10, dExp);
end;
Freundliche Grüße