Caracteres no imprimibles en cadena

[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