Cita:
Empezado por elmago00
...eliminar todos los saltos de linea y en lugar de hacer el salto que aparezca un espacio entre ellos...
|
Hola.
Entonces proba de este modo:
Código Delphi
[-]
procedure DeleteCRLF(TS: TStrings);
begin
TS.Text := StringReplace(TS.Text, #$D#$A, #$20, [rfReplaceAll]);
TS.Text := StringReplace(TS.Text, #$D#$A#$D#$A, #$20, [rfReplaceAll]);
end;
Ejemplo de uso:
Saludos
