Comparar caracteres de una cadena

[cslbcn]

Hola.

tengo una cadena de texto con simbolos (A35-5677:G6) y quiero que esa cadena se convierta en (A355677G6).

He conseguido hacer el recorrido carácter por carácter pero no consigo hacer la comparación, es decir, hacer algo así:

cadenaCaracteresParaComparar = 'abcdrfghijklmnopqrstuvwxyzABCDRFGHIJKLMNOPQRSTUWXYZ1234567890'

cadenaOriginal = A35-5677:G6

for A hasta el 6 hacer:
si A está en cadenaCaracteresParaComparar -> OK

Si - no está en cadenaCaracteresParaComparar -> BORRAR

como se haría esa comparación? alguna funcion?

[*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

[ecfisa]

Hola.

La solución de Caro funciona perfectamente, pero se me ocurrió una idea y bue... ya que estoy la pongo.

procedure SacarExtras(var Cadena:string; ASacar: string);
var
  i: Integer;
begin
  for i:= Length(Cadena) downto 1 do
    if Pos(Cadena[i], ASacar) > 0 then
      Delete(Cadena, i, 1);
end;

se la llamaría:

...
  Cadena:= 'A35-5677:G6'; 
  SacarExtras(Cadena, '-:*#$.@'); { no es una grosería }

Saludos.

[cslbcn]

muchas gracias a los 2.