BUENAS ALGUIEN ME PUEDE ORIENTAR, ESTOY CONCATENANDO LOS ELEMENTOS DE UN ARRAY EN UNA VARIABLE TODO ME FUNCIONA BIEN PERO EL ARRAY LO LENO DE UNA CONSULTA SQL Y ME TRAE SEGUN LA CONSULTA LA CANTIDAD DE REGISTROS EN ESTE CASO CORREOS, MUCHAS VECES ME TRAE MAS DE MIL Y SOLO PUEDO PASAR 500 CORREOS SEPARADOS POR (,) COMO HAGO PARA QUE ME CONCATENE 500 HAGA UNA PAUSA Y LUEGO CONTINUE CON OTROS 500 Y ASI HASTA QUE LLEGUE AL FINAL EL CODIGO POR MEDIO DEL CUAL ENVIO A LA FUNCION CONCATENAR ES ESTA
Código:
function Concatenar (mail : string) : string;
begin
correos:=correos+mail+',';
end;
y con este le envio los elementos
Código:
for i:= Low(contactos) to High(contactos) do
begin
Concatenar((Format('%s', [contactos[i]])));
tope:=tope+1;
end;
Publicado:
Mie Jul 02, 2014 4:11 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: CONCATENAR ELEMENTOS DE UN ARRAY
Anuncios
¿Necesitas usar obligatoriamente array? tal vez con Listas te sería mucho más cómodo, me refiero a TStringList. Un ejemplo de uso:
Código:
procedure insertarEventoFicheroLog (tipoevento : string; evento : string);
var
ficheroTmp : TStringList;
begin
try
ficheroTmp := TStringList.Create;
if FileExists(vtRutaFicheroLog) then
ficheroTmp.LoadFromFile(vtRutaFicheroLog);
ficheroTmp.Add(DateTimeToStr (Now) + Chr(9) +
tipoevento + Chr(9) + evento);
ficheroTmp.SaveToFile(vtRutaFicheroLog);
finally
ficheroTmp.Free;
end;
end;
En el ejemplo se carga la lista desde un fichero de texto pero obviamente no es necesario, se le pueden agregar líneas con el ".Add('texto')". Y luego recorrerla es sencillo con .Count y .Items[x] para el elemento actual, algo así:
Código:
var
i : integer;
elementoActual : String;
begin
...........
for i := 0 to lista.Count - 1 do
begin
elmentoActual := lista.Strings[i];
Yo cargo los elementos al array desde una base de datos, me imagino que de alli los puedo pasar a la lista de text pero como hago la pausa para que haga el envio y luego siga rrecorriendo tomando en cuenta que mientras exista registro lo debo hacer de 500 en 500
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A