Cita:
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; if w=Pagina then begin
w:=0;
ListBox1.Items.Add('Pagina de '+IntToStr(i-Pagina)+' a '+IntToStr(i));
end;
end;
if w<>0 then
ListBox1.Items.Add('Pagina de '+IntToStr(i-w)+' a '+IntToStr(i));