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

Hola,
tengo un problemilla y recurro a vosotros para ver si me podeis ayudar. Estoy haciendo una aplicación y en ella hay una parte que lo que hago es leer de un fichero txt el codigo fuente que he extraido de una web. El caso es que asigno parte de ese codigo a una variable del tipo string y lo cargo en un memo, pero me hace unos espacios en blanco y un salto de linea que no tendria que hacer. Intentandolo solucionar he mirado el contenido del string y en la parte donde hace el salto de linea hay este código #$D#$A . He estado mirando y en el foro y he encontrado que es el retorno de carro (crlf) pero el problema es que no puedo quitarlo y en el memo me hace el salto de linea. He intentado detectarlo en el string y eliminarlo recorriendo el string y buscando ese codigo pero no lo encuentra. El unico sitio donde lo puedo visualizar es en el momento en el que se esta ejecutando ver el contenido de la variable string. A ver si me pueden ayudar a detectar y eliminar del string ese codigo que despues me hace el salto de linea en el memo. Gracias de antemano.

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.

Código Delphi [-]

const SaltoLinea = #13#10;

begin

delete (mivariable, length(mivariable)-(length(saltolinea), length(SaltoLinea));

// o bien:
StringReplace(mivariable, saltolinea,' ',[rfreplaceall]);

(Recordemos que $D es el número 13 en hexadecimal, y $A es el 10)

Esos caracteres extraños corresponde a la constante salto linea. Normalmente el depurador de delphi los muestra como tú dices, otras veces aparece como una linea vertical en negrita (en labels y otros controles).

Como ha dicho Casimiro, ocupa 2 espacios; para generalizar, puedes usar la constante.

Tambien puedes usar Stringreplace para quitar todos los saltos de lineas (delphi 6 o superior)

Un saludo