Tema: Comparar caracteres de una cadena
Ver Mensaje Individual
  #2  
Antiguo 09-07-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
  
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
Hola cslbcn, tu cadena a comparar puedes tomarlo como un conjunto:

Código Delphi [-]
 
 cadenaOriginal := 'A35-5677:G6';
 
 for i:=Length(cadenaOriginal) downto 1 do
  begin
   if not(cadenaOriginal[i] in ['a'..'z','A'..'Z','0'..'9']) then
     Delete(cadenaOriginal,i,1);
  end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita