Besonderes Runden

[BorlanDelphiUser]

Hallo,
hab da mal wieder so ein Problem, ich erstelle gerade ein Link-Verzeichnis auf HTML-Basis mit Delphi. Es funktioniert schon alles super bis auf das generieren mehrere Seiten. Hier mal ein paar Beispiele zur Verdeutlichung.

21 Einträge dürfen maximal auf einer Seite sein, also bei 22 muss eine neue Seite beginnen. Was mein Problem beider ganzen Sache ist ich kann das Ergebnis nicht Runden.

Nehmen wir z.B. 43 Einträge:

43 durch 21 ergibt 2,047... wenn ich das Runde kommt man auf 2, logisch. Es sind aber schon 3 Seiten und nicht 2.

Gibt es eine Funktion die mir immer den höheren Wert zurück gibt (in diesem Fall 3!).

Bin auf eure Lösungen gespannt und danke euch sconmal im vorraus.
Falls ich die Lösung schon früher haben sollte poste ich sie euch.

[sakura]

Folgender Code hilft Dir bestimmt:

Delphi-Quellcode:

function MaxPages(Entries, EntriesPerPage: Integer): Integer;
begin
  Result := Entries div EntriesPerPage;
  if Entries mod EntriesPerPage > 0 then
    Inc(Result);
end;

......

[BorlanDelphiUser]

Ich kann mich nur wiederholen das Forum hier ist SUPER. Innerhalb von 2 min gleich eine sehr brauchbare Lösung zu bekommen ist einfach genial. DANKE!!!

[sakura]

Du schmeichelst mir und alle anderen Nutzern sehr

Danke
......

[negaH]

Result := (Entry + EntriesPerPage -1) div EntriesPerPage;

kommt mit einer Division aus.

Gruß Hagen

[sakura]

So genial wie einfach

......

[Chewie]

Oder noch einfacher: Ceil() aus der Unit math

[negaH]

Ceil() arbeitet aber mit Fließkommazahlen. Reine Integerberechnungen sind meistens schneller.

Gruß Hagen