Concatenar un numero determinado de palabras con el contenido de un array

[ecfisa]

Hola webmasterplc.

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