Ver Mensaje Individual
  #4  
Antiguo 01-12-2011
ASAPLTDA ASAPLTDA is offline
Miembro
 
Registrado: jun 2003
Ubicación: COLOMBIA-CALI
Posts: 639
Reputación: 21
ASAPLTDA Va por buen camino
Eliminacion de Carareceres especiales

Hola amigos del foro por sus comentarios , hice esta pequena rutina para elimnar los caractes especiales y parece que las cosas marchan mejor, estoy revisando
Código Delphi [-]
function TFPEDINTCG1.BORRA_CARACTERES_ESPECIALES(P_STRING:STRING):STRING;
var
  w_s:string;
  W_l:Integer;
  w_letra:string;
  W_t:Integer;
  W_CHR :Char ;
  W_ORD:Integer;
begin
  w_s:= P_STRING;
  w_l :=  Length(w_s)   ;
  FOR w_t:= 0 to w_l  do begin
      w_letra:= w_s[w_T];
      W_CHR:=W_LETRA[1];
      W_ORD:=Ord(W_CHR);
      IF (W_ORD < 32) or (W_ORD > 127)   then
         w_s[w_T]:=  ' ';
    end;
   Result := w_s;

end;
Responder Con Cita