Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 22-12-2005
barrauda barrauda is offline
Miembro
 
Registrado: jun 2003
Ubicación: Balcarce - Buenos Aires
Posts: 42
Poder: 0
barrauda Va por buen camino
Ya está solucionado

Hola, muchas gracias a todos, he usado la función Pos que me recomendó el tocayo Davis Esperalta y funcionó al pelo. Muchas gracias a ambos por su ayuda.
Pongo acá el código para que otros puedan tenerlo también

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin

   for i:=0 to (memo1.Lines.Count-1)do
      begin
         if pos('Firefox',memo1.Lines[i])>0 then
            begin
            showmessage(memo1.lines[i]);
            memo2.Lines.Add(memo1.Lines[i]);
            end

      end;
end;

Cabe aclarar que donde está el showmessage o el paso de la línea del primer memo al segundo, se puede poner la acción que se quiera. Este es un caso de ejemplo sólamente.
__________________
David Barraud
Licenciado en Sistemas
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 07:02:55.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi