Ver Mensaje Individual
  #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
Reputación: 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