Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-03-2016
Jasan_Records Jasan_Records is offline
Registrado
NULL
 
Registrado: ene 2015
Posts: 6
Poder: 0
Jasan_Records Va por buen camino
Separar String y cargar en edit delphi

Hola Muchachos!, Estoy Usando Delphi y Tengo un campo que guarda un dato como este: pc-12345-a-16, la consulta es como podria hacer la codificacion para separar la cadena delimitado por el - y que se muestre cada uno en un edit. por ejemplo edit1: pc, edit2:12345, edit3:a y edit4:16. espero su ayuda, Gracias.
Responder Con Cita
  #2  
Antiguo 06-03-2016
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
Hay dos formas, o usas ExtractStrings (mira en la ayuda el uses)

O un TStringList;
Código Delphi [-]
var
  st : TstringList; 
begin 
  st := TstringList.Create; 
  st.Delimiter := '-'; 
  st.DelimitedText:= 'pc-12345-a-16'; 
  if st.Count > 0 then  edit1.text := st[0]; 
  if st.Count > 1 then  edit2.text := st[1]; 
  if st.Count > 2 then  edit3.text := st[2]; 
  if st.Count > 3 then  edit4.text := st[3]; 
  finally 
    st.Free; 
  end;
end;

No lo he compilado... pero debe funcionar.
He puesto los "if" porque nunca me fío de los datos que pueda haber en la base de datos.

Saludos.
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #3  
Antiguo 06-03-2016
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por Lepe Ver Mensaje
No lo he compilado... pero debe funcionar.
Se te olvidó el try
Responder Con Cita
  #4  
Antiguo 06-03-2016
Jasan_Records Jasan_Records is offline
Registrado
NULL
 
Registrado: ene 2015
Posts: 6
Poder: 0
Jasan_Records Va por buen camino
gracias por la ayuda pero quizas no fui bien claro, olvide comentar que la consulta que me trae ese dato pc-12345-a-16 y otros con el mismo formato lo hago con un adoquery, en el expte.DelimitedText:= ' ', debo poner el adoquery? perdon soy nuevo en esto y me apasiona aprender.
Responder Con Cita
  #5  
Antiguo 06-03-2016
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por Jasan_Records Ver Mensaje
... soy nuevo en esto y me apasiona aprender.
Entonces esto es lo que necesitas
Responder Con Cita
  #6  
Antiguo 07-03-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Aquí tienes la explicación de la clase TStringList con ejemplos que puedes probar.
En la misma línea que el ejemplo que te ha escrito Lepe.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Separar String lmpadron C++ Builder 5 16-08-2011 23:46:50
separar y comparar valores en un edit jocey Varios 2 12-06-2008 17:39:38
separar string mjjj Varios 2 06-09-2007 18:02:25
gif a string o cargar bitmap ivan022481 Gráficos 0 06-07-2006 07:56:38
cargar un edit juan888 Conexión con bases de datos 1 26-02-2004 23:19:06


La franja horaria es GMT +2. Ahora son las 12:20:25.


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