runden bis auf 2 stellen hinterm komma, 0 nicht wegschneiden

**agm65**

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 ?

runden bis auf 2 stellen hinterm komma, 0 nicht wegschneiden

runden bis auf 2 stellen hinterm komma, 0 nicht wegschneiden

Forumregeln