Caracteres no imprimibles en cadena

[joseprad]

Hola amigos:

Tengo una cadena que se genera en un TRichText en la que se me cuelan carcteres especiales.
Queria adjuntar una captura de pantalla pero veo que no es posible. Los carateres en el Debug Inspector se me representan '#$D#$A'.
Se comportan como final de linea y supongo que lo son, pero el caso es que he estado haciendo pruebas y buscando por internet y no he podido dar con la forma de borrarlo.
Alguna alma caritativa puede ayudarme.
Muchas gracias

[ecfisa]

Hola joseprad.

Creo recordar que ya habíamos tratado un asunto similar, pero no puedo encontrar el hilo...

Fijate si te sirve de este modo:

Código Delphi [-]
function DelSubstr(const Str, substr: string): string;
begin
  Result := StringReplace(Str, substr, '', [rfReplaceAll]);
end;

Ej. de uso:

Código Delphi [-]
var
  str : string = 'prueba '+#$D#$A+ 'con '+#$D#$A+'saltos '+#$D#$A+'de '+#$D#$A+'linea';

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(str + #$D#$A + DelSubstr(Str, #$D#$A));
end;

(Puse la función StringReplace dentro de una función para que quede mas claro el ejemplo, pero podes usarla directamente)

Saludos

[joseprad]

Muchas gracias. Funciona perfectamente.