danke dir marabu (auf log10 hätte auch kommen können
).
hab die Funktion noch bisschen modifiziert, da ich die Nachkommastellen des "Hunderterwertes" nicht benötige.
Delphi-Quellcode:
uses math;
function Norm(e: Extended; var dExp: Integer): Integer;
begin
dExp := Ceil(Log10(e)) - 3;
Result := round(e / Power(10, dExp));
end;
procedure TForm1.Button1Click(Sender: TObject);
var dExp: Integer;
begin
edit2.text:=inttostr(Norm(strtofloat(edit1.text),dexp));
end;
Gruß Frank