Caracteres extraños (#$D#$A)

Casimiro Noteví · #2 22-09-2005

Tienes varias posibilidades, una muy simple sería hacer algo así:

En la variable donde tengas la línea leída le quitas los últimos 2 caracteres

Código Delphi [-] cLinea := copy( cLinea, 1, length(cLinea)-2) );

También puedes recorrer todo el texto buscando esos caracteres y eliminarlos según los vas encontrando.

Código Delphi [-] cTexto   <- variable con el texto
 cNuevoTexto  <- variable donde irá el texto "limpio"
 
 for iX=1 to length(cTexto) do
     if not ((cTexto[iX]=#13) or (cTexto[iX]=#10)) then
         cNuevoTexto := cNuevoTexto + cTexto[iX];

Es poco eficiente, hay otras formas más "elegantes" de hacerlo, pero te puede valer.