Registriert seit: 10. Jun 2002
Ort: München
11.412 Beiträge
Delphi 11 Alexandria
|
5. Jul 2003, 15:17
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;
... ...
Daniel W. Ich bin nicht zurück, ich tue nur so
|