udf_RtfToText: corregido el reemplazo de los saltos de línea por cadena vacia.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@255 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-06 19:09:34 +00:00
parent 31ed4a886b
commit 9da004e099
2 changed files with 1 additions and 1 deletions

View File

@ -215,7 +215,7 @@ var
begin begin
// Hay que quitar el salto de línea al final de la aSource RTF // Hay que quitar el salto de línea al final de la aSource RTF
aSource := StringReplace(Cadena, SaltoLinea, ' ', [rfreplaceall]); aSource := StringReplace(Cadena, SaltoLinea, '', [rfreplaceall]);
// o bien: // o bien:
// //

Binary file not shown.