Hola webmasterplc.
Cita:
Empezado por webmasterplc
... lo que tengo es que dividirlos de 500 en 500 saludos
|
Correcto y es claro que el último lote generalmente será menor, por ejemplo:
Código Delphi
[-]
var
lotes: Integer;
Resto: Integer;
begin
Lotes := High(contactos) div 500;
Resto := High(Contactos)-Lotes*500;
ShowMessage(Format('Enviando %d lotes de 500 mensajes%sy uno de %d',
[Lotes,#10,Resto]));
end;
Saludos
