|
Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
FreePascal / Lazarus
|
Re: Ganze Zahl runden
12. Feb 2007, 00:16
Wenn es dir darum geht hohe Highscores (doppelt  ) als kleinere Zahlen darzustellen dürfte das hier auch hilfreich sein!
Delphi-Quellcode:
if score>=1000000 then
begin
score:=Round(score/1000);
string:=FloatToStr(score/1000)+' Mio.';
end;
Edit: Aber...
Zitat von bitsetter's Signatur:
Viele Wege führen nach Rom!
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg
|