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-09-2007
mjjj mjjj is offline
Miembro
 
Registrado: mar 2007
Posts: 652
Poder: 18
mjjj Va por buen camino
separar string

Hola amigos... mi preguntao es algo sencilla, pero no conozco una instruccion que pueda solucionarme el problema...

tengo un edit con el siguiente texto, por ejemplo: "25000 A", el texto se compone en un numero de maximo 5 caracteres, un espacio y una letra.
Se puede dar el caso que el texto del edit solo se componga de un numero, ejemplo: "25500".

Lo que necesito hacer es separar en 2 variables, el numero y la letra, es decir, para el ejemplo "25000 A", obtener VAR1=25000 y VAR2=A.

Alguien que me ayude con un codigo para realizar esta operacion... o algun ejemplo de donde sacar alguna idea....

Alguna idea que pudiera funcionar es guiarse con el caracter espacio (" "), que es comun entre todos los textos, en el mejor de los casos, no existe (25500).

De ante mano... muchas gracias
Responder Con Cita
  #2  
Antiguo 06-09-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Puedes usar la función "Copy" y, basándote en el espacio en blanco...

Código Delphi [-]
var
  i: integer;
  numero,letra: string;
begin
  letra := '';
  numero := '';

  // Buscamos la posición del espacio
  i := Pos(' ', Trim(Edit1.Text));

  // Si existe un espacio...
  if (i <> 0) then begin
    // Copiamos el número de la cadena
    numero := Copy(Edit1.Text, 0, i-1);
    // Y a continuación la letra
    letra := Copy(Edit1.Text, i+1, Length(Edit1.Text));
  end else begin
    // Si no existe el espacio se asume
    // que la cadena es un número
    numero := Edit1.Text;
  end;

  ShowMessage(numero);
  ShowMessage(letra);

end;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 06-09-2007 a las 18:05:00.
Responder Con Cita
  #3  
Antiguo 06-09-2007
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Poder: 25
eduarcol Va por buen camino
Para el numero

Código Delphi [-]
var1 := Copy(Texto, 1, Pos(' ', Texto) - 1)

para la letra

Código Delphi [-]
var2 := Copy(Texto, Pos(' ', Texto) + 1, Length(Texto))

Donde texto es la variable

--------
Se me adelantaron, estoy lento para escribir
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
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 fecha mauilore Firebird e Interbase 3 19-07-2006 22:46:09
como separar la fecha ddd_ddd Varios 1 23-10-2005 20:18:47
Separar Cadenas ronson Varios 2 25-07-2005 19:01:46
Separar reportes de la aplicacion Carlos Arevalo Impresión 5 24-01-2005 22:01:14
Separar Formularios Charcab Varios 0 31-08-2003 00:17:32


La franja horaria es GMT +2. Ahora son las 21:20:32.


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