Ver Mensaje Individual
  #1  
Antiguo 03-08-2007
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Reputación: 19
MaMu Va por buen camino
Fragmentar/Paginar Resultado

Resulta que yo tengo un List con X cantidad de items. Estos, pueden oscilar desde 1 a 1000. Lo que yo quiciera hacer, es fragmentar o paginar estos items, por ejemplo, agruparlo cada 10 o 20 items.
Por ejempo, si el List.Count=100, entonces, quiciera agruparlo en 5 grupos de 20. Y asi, con cualquier valor de List.Count, una suerte de funcion, asi:

Código:
function Paginar(ListCount:integer;Pagina:Integer):integer;
 
//donde
 
//ListCount:=List.Count;
//Pagina:=Cantidad de Items por Pagina
Si por ejemplo tengo un List.Count=65, tendria que devolverme:
-20
-20
-20
-5

No se si se entiende lo que quiero hacer, pero no se me ocurre como.
Alguna sugerencia o idea???

Saludos
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
Responder Con Cita