fließkommerzahlen runden

[oni]

ich möchte fließkommerzahlen auf eine stelle runden und habe keine ahnung wie

danke im vorraus

[Keldorn]

Hallo

welche Delphi-version hast du? ab D6 (nicht sicher) gibts es roundto.
wenn du es nicht zur Verfügung hast, gibt es auch einen anderen weg, sag einfach bescheid. bzw guggst hier:
http://www.delphipraxis.net/internal...ghlight=runden (2. Beitrag)

Mfg Frank

[oni]

ich hab 7 denke mal das geht

[bigg]

hi,

willst du die Zahl runden oder willst du die Zahl als String abschneiden ?

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Rundet einen Float nach x-Kommastellen

function RoundFloat(e: Extended; i: Integer): Extended;
var s: string; p: Integer;
begin
s := FloatToStr(e);
p := Pos(',', s);

if (p <> 0) and (Length(s) > i + 2) and (i > 0) then
begin
s := Copy(s, 1, p + i);
Result := StrToFloat(s);
end else Result := e;
end;

////////////////////////////////////////////////////////////////////////////////
// Kürzt einen String nach der x-ten Kommastelle

function RoundFloatStr(AValue: String; i: Integer): String;
var s: string; p: Integer;
begin
Result := AValue;
p := Pos(',', AValue);

if (p <> 0) and (Length(AValue) > i + 2) and (i > 0) then
begin
AValue := Copy(AValue, 1, p + i);
Result := AValue;
end;

end;

[Jelly]

Hallo,

probiers mal mit dieser Fnkt:

Delphi-Quellcode:

uses math ;

function Runde (e : float ; n : integer) : float ;
begin
  result := round (power (10,n)*e) / power (10,n) ;
end ;

Gruß,
Tom