ich nochmal schnell..
..
folgendes:
Delphi-Quellcode:
(code von [
url]http:
//forum.dsdt.info/[/url])
uses Math;
function RundeAufStelle(zahl: double; stellen: integer): double;
var multi: double;
begin
multi:=IntPower(10, stellen);
zahl:=round(zahl*multi);
result:=zahl/multi;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=FloatToStr(RundeAufStelle(1023.23483, 2));
end;
rundet diese zahl bis auf 2 stellen hinterm komma...wenn die zahl jetzt aber nach dem runden so aussieht: 1023.60
wird die 0 abgeschnitten wie kann ich das verhindern ?