¿Cuál es la forma más rápida de eliminar caracteres no alfanuméricos de una cadena en Delphi7?

Question

Los caracteres permitidos son de la A a la Z, de la a a la z, de 0 a 9. La menor cantidad de código o una sola función sería mejor ya que el sistema es crítico en el tiempo en la respuesta a la entrada.

Answer 1

uses JclStrings; 

    S := StrKeepChars('mystring', ['A'..'Z', 'a'..'z', '0'..'9']); 

Answer 2

caso onkeypress

comienzan si no (clave en [ 'a' .. 'Z', 'a' .. 'z', '0' .. '9']), entonces clave: = # 0; final;

Answer 3

Solo para añadir una observación.

La solución que usa un conjunto está bien en Delphi 7, pero puede causar algunos problemas en Delphi 2009 porque los conjuntos no pueden ser de char (se convierten a ansichar).

Una solución que puede utilizar es:

case key of 
    'A'..'Z', 'a'..'z', '0'..'9' : begin end; // No action 
else 
    Key := #0; 
end; 

Pero la forma más versátil es por supuesto:

if not ValidChar(key) then 
    Key := #0; 

En ese caso se puede utilizar ValidChar en varias ubicaciones y si necesita estar cambiado, solo tiene que cambiarlo una vez.

Answer 4

Si he entendido bien se puede utilizar una función como esta:

function StripNonAlphaNumeric(const AValue: string): string; 
var 
    SrcPtr, DestPtr: PChar; 
begin 
    SrcPtr := PChar(AValue); 
    SetLength(Result, Length(AValue)); 
    DestPtr := PChar(Result); 
    while SrcPtr <> #0 do begin 
    if SrcPtr[0] in ['a'..'z', 'A'..'Z', '0'..'9'] then begin 
     DestPtr[0] := SrcPtr[0]; 
     Inc(DestPtr); 
    end; 
    Inc(SrcPtr); 
    end; 
    SetLength(Result, DestPtr - PChar(Result)); 
end; 

Esto utilizará PChar de alta velocidad (a costa de menos legibilidad).

Editar: Re el comentario de gabr sobre el uso de DestPtr [0] en lugar de DestPtr^: Esto debe compilar a los mismos bytes de todos modos, pero hay buenas aplicaciones en código similar, donde es necesario mirar hacia el futuro. Supongamos que desea reemplazar las líneas nuevas, entonces podría hacer algo como

function ReplaceNewlines(const AValue: string): string; 
var 
    SrcPtr, DestPtr: PChar; 
begin 
    SrcPtr := PChar(AValue); 
    SetLength(Result, Length(AValue)); 
    DestPtr := PChar(Result); 
    while SrcPtr <> #0 do begin 
    if (SrcPtr[0] = #13) and (SrcPtr[1] = #10) then begin 
     DestPtr[0] := '\'; 
     DestPtr[1] := 't'; 
     Inc(SrcPtr); 
     Inc(DestPtr); 
    end else 
     DestPtr[0] := SrcPtr[0]; 
    Inc(SrcPtr); 
    Inc(DestPtr); 
    end; 
    SetLength(Result, DestPtr - PChar(Result)); 
end; 

y por lo tanto no suelo utilizar el ^.

BTW, ¿alguien tiene una idea de cómo formatear esto de forma que el resaltado funcione correctamente?