FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Detectar enteros y caracteres en un edit
Hola a todos,
Necesitaria poder detectar que en un mismo edit me escribieran números enteros y caracteres a la misma vez. Tengo una ligera idea de como detectar, por ejemplo la vocal 'a', pero no logro realizar la combinación de caracter y númerico a la misma vez. Adjunto el código para recorrer el edit y detectar 'a'.
Gracias a todos de nuevo |
#2
|
||||
|
||||
No se si te he entendido bien, pero si este es el caso, esto te podría ayudar a hacer lo que buscas:
Código:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; voc, conso, num, blanco: Integer; contra: string; begin voc := 0; conso := 0; num := 0; blanco := 0; if Edit1.Text = '' then exit; contra := UpperCase(Edit1.Text); for i := 1 to length(contra) do begin if (contra[i] in ['A','E','I','O','U']) then inc(voc) else if (contra[i] in ['0'..'9']) then inc(num) else if (contra[i] in ['B'..'D', 'F'..'H', 'J'..'N', 'P'..'T','V'..'Z', 'Ñ']) then inc(conso) else if (contra[i] = ' ') then inc(blanco); end; ShowMessage(Format('Vocales: %d ' + #13 + 'Consonantes: %d ' + #13 + 'Numeros: %d ' + #13 + 'Blancos: %d', [voc, conso, num, blanco]) ); end; |
#4
|
|||
|
|||
Gracias a todos por la ayuda, al final con un poco de cada uno lo he resuelto de la siguiente forma
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Limitar el nº de caracteres en un Edit | Javier_A | OOP | 4 | 04-04-2013 19:57:51 |
SOLO caracteres en un Edit | creus | Varios | 4 | 08-02-2007 00:51:11 |
caracteres numéricos en un edit | edusus | Varios | 1 | 21-04-2006 00:24:16 |
convertir una cadena de caracteres a un enteros | dmagui | Firebird e Interbase | 2 | 05-08-2005 17:39:16 |
Cantidad de caracteres en un edit | botones67 | Varios | 4 | 09-07-2003 11:55:54 |
|