Fragmentar/Paginar Resultado

[[eduarcol]]

Empezado por mamu

Y si por ejemplo el List.Count=100 me funciona, pero no se me ocurre, como hacer cuando List.Count=105, tengo que resolver eso.

Prueba esta modificacion a ver si va, pero la verdad no entiendo exactamente cual es el problemas, si entiendo lo que quieres hacer mas no el problema que describes al comienzo

Código Delphi [-]
 Pagina:=20;
  for i:=1 to List.Count do
    begin
      w:=w+1;  //acumulador
      if w=Pagina     //Conto 20?
        then begin
          w:=0;
          ListBox1.Items.Add('Pagina de '+IntToStr(i-Pagina)+' a '+IntToStr(i));
        end;
    end;
   //Si sale valida que no tenga nada w, es decir imprimio todos los valores
   if w<>0 then
      ListBox1.Items.Add('Pagina de '+IntToStr(i-w)+' a '+IntToStr(i));    //Muestra los que falta