[Delphi]Afronden naar boven

[Kwistnix]

Hoe rond ik een getal in delphi altijd af naar boven?
Ik moet een getal uit een TEdit halen, dat getal moet altijd door 4 gedeeld worden en de uitmomst daarvan moet naar boven worden afgerond.
Ik dacht door er 0.5 bij op te tellen en dan de round() functie te gebruiken, maar daar klopt dus nix van (12/4=3 ; 3+0.5=3.5 ; 3.5 >4)
Denk foutje

[Tim]

heeft delphi niet iets van een ceil functie?

[Bart Coppens]

Round het getal. Is dat kleiner dan het oorspronkelijke getal, tel er dan 1 bij op. Klaar

[CyberSnooP]

Press F1 for Help

[Kwistnix]

Op zondag 26 mei 2002 14:53 schreef Bart Coppens het volgende:
Round het getal. Is dat kleiner dan het oorspronkelijke getal, tel er dan 1 bij op. Klaar

JA TOCH
Thx man!
Die Ceil functie kreeg ik trouwens niet voor elkaar, maar dat boeit dus niet meer

[jhksema]

Op zondag 26 mei 2002 14:53 schreef Bart Coppens het volgende:
Round het getal. Is dat kleiner dan het oorspronkelijke getal, tel er dan 1 bij op. Klaar

Dit gaat verkeerd:

Round(0.5) = 1
Er 1 bij optellen geeft 2, maar Ceil(0.5) = 1!
Dus gebruik i.p.v. round trunc!

[Bart Coppens]

Je hebt gelijk, was klein denkfoutje met grote gevolgen Zo zie je maar weer, alles eerst zelf nog eens beredeneren ook al wordt beweerd dat het wel werkt

[Verwijderd]

Op zondag 26 mei 2002 15:17 schreef jhksema het volgende:

[..]

Dit gaat verkeerd:

Round(0.5) = 1
Er 1 bij optellen geeft 2, maar Ceil(0.5) = 1!
Dus gebruik i.p.v. round trunc!

Uhuh! als het kleiner is dan het oorspronkelijke getal.. 1 is groter dus je hoeft er nix bij op te tellen..

[Bart Coppens]

Dan had ik toch gelijk *zucht* Is lesje voor mij: niet direct alle kritiek aanvaarde.
Alleen weet ik niet welk effect je beoogt bij negatieve waarden, dus moet je er als dat nodig zou zijn wel een abs-je bijzetten.

[nightowl]

Op zondag 26 mei 2002 14:51 schreef FallenAngel666 het volgende:
Hoe rond ik een getal in delphi altijd af naar boven?
Ik moet een getal uit een TEdit halen, dat getal moet altijd door 4 gedeeld worden en de uitmomst daarvan moet naar boven worden afgerond.
Ik dacht door er 0.5 bij op te tellen en dan de round() functie te gebruiken, maar daar klopt dus nix van (12/4=3 ; 3+0.5=3.5 ; 3.5 >4)
Denk foutje

Een andere oplossing is door er niet 0.5 bij op te tellen maar 0.99 en dan de integer te pakken:

12/3=4 + 0.99 = 4.99 -> int(4.99) = 4

Werkt sneller imho

suk6

[Kwistnix]

Op zondag 26 mei 2002 15:39 schreef TimD het volgende:

[..]

Uhuh! als het kleiner is dan het oorspronkelijke getal.. 1 is groter dus je hoeft er nix bij op te tellen..

Idd, werkt als een tiet!

code:

rekenom:=StrToInt(MeAantal.Text)/4;
uitkomst:=Round(StrToInt(MeAantal.Text)/4);
if uitkomst < rekenom then uitkomst:=uitkomst+1;

[Verwijderd]

Het lijkt me handiger om gewoon de round functie te gebruiken. Al zou het bovenstaande goed werken. Maar er is geen enkel verschil in functionaliteit/resultaat in het bovenstaande en de ingebakken functie 'round' in Delphi.

Het voorbeeld uit de Delphi-help:

code:

var
  S, T: string;
begin
  Str(1.4:2:1, T);
  S := T + ' rounds to ' + IntToStr(Round(1.4)) + #13#10;
  Str(1.5:2:1, T);
  S := S + T + ' rounds to ' + IntToStr(Round(1.5)) + #13#10;
  Str(-1.4:2:1, T);
  S := S + T + ' rounds to ' + IntToStr(Round(-1.4)) + #13#10;
  Str(-1.5:2:1, T);
  S := S + T + ' rounds to ' + IntToStr(Round(-1.5));
  MessageDlg(S, mtInformation, [mbOk], 0);
end;

[Kwistnix]

Ik gebruikt toch ook de round() functie

[Verwijderd]

waarom doe je niet gewoon (delphi 6):
SetRoundMode(rmUp);

dan ben je in 1 klap klaar.

[Kwistnix]

Omdat ik Delphi 4 gebruik

[Creepy]

Op zondag 26 mei 2002 14:53 schreef Timpie het volgende:
heeft delphi niet iets van een ceil functie?

Ja dus:

Uit de Delphi help
function Ceil(X: Extended):Integer;

Description

Call Ceil to obtain the lowest integer greater than or equal to X. The absolute value of X must be less than MaxInt. For example:

Ceil(-2.8) = -2

Ceil(2.8) = 3

Ceil(-1.0) = -1

Of ie in Delphi4 zit weet ik niet, maar ik gok van wel.

[Verwijderd]

Op maandag 27 mei 2002 12:33 schreef FallenAngel666 het volgende:
Omdat ik Delphi 4 gebruik

Goede reden, maar dat wist ik natuurlijk niet.