|
Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
5. Jul 2003, 16: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 Lizbeth
Ich bin nicht zurück, ich tue nur so
|