Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - CONCATENAR ELEMENTOS DE UN ARRAY
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information CONCATENAR ELEMENTOS DE UN ARRAY

Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
webmasterplc
Excelente usuario


Registrado: Oct 31, 2009
Mensajes: 26

Asunto: CONCATENAR ELEMENTOS DE UN ARRAY Responder citando

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;
MensajePublicado:
Mie Jul 02, 2014 4:11 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: CONCATENAR ELEMENTOS DE UN ARRAY Responder citando



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];

    .......

  end;
 
  .......

end;


Aquí tienes un ejemplo de uso:

http://www.ajpdsoft.com/modules.php?name=Foros&file=viewtopic&t=249
MensajePublicado:
Jue Jul 03, 2014 12:49 pm
Top of PageVer perfil de usuario
webmasterplc
Excelente usuario


Registrado: Oct 31, 2009
Mensajes: 26

Asunto: Responder citando

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
MensajePublicado:
Jue Jul 03, 2014 2:45 pm
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net  

Cambiar a:  
Key
  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
Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+