Comparar caracteres de una cadena

[*Caro*]

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