Re: [fpc-devel] patch for THtmlWriter.EscapeText

2008-08-20 Thread Vincent Snijders 

Michael Van Canneyt schreef:


On Mon, 18 Aug 2008, Vincent Snijders wrote:


Hi,

Attached is a patch for patch for THtmlWriter.EscapeText


Applied, thank you !




Can the whtml unit be compiled with {$H+}, so that EscapeText can return 
strings longer than 255 chars?


Vincent
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Re: [fpc-devel] patch for THtmlWriter.EscapeText

2008-08-18 Thread Joost van der Sluis 
Op maandag 18-08-2008 om 12:32 uur [tijdzone +0200], schreef Vincent
Snijders:

> Attached is a patch for patch for THtmlWriter.EscapeText

In StrUtils there's a new function StringSReplace. With this you can
merge all those lines into one, and then the string is only parsed
once...

Joost.

___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Re: [fpc-devel] patch for THtmlWriter.EscapeText

2008-08-18 Thread Michael Van Canneyt 


On Mon, 18 Aug 2008, Vincent Snijders wrote:

> Hi,
> 
> Attached is a patch for patch for THtmlWriter.EscapeText

Applied, thank you !

Michael.
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel

[fpc-devel] patch for THtmlWriter.EscapeText

2008-08-18 Thread Vincent Snijders 

Hi,

Attached is a patch for patch for THtmlWriter.EscapeText

Vincent
Index: packages/fcl-base/src/whtml.pp
===
--- packages/fcl-base/src/whtml.pp	(revision 11609)
+++ packages/fcl-base/src/whtml.pp	(working copy)
@@ -136,9 +136,9 @@
 function THTMLWriter.EscapeText(AText: String): String;
 begin
   // replace by a more sensitive method.
-  Result:=StringReplace(AText,'&','&',[rfReplaceAll]);
-  Result:=StringReplace(Result,'<','<',[rfReplaceAll]);
-  Result:=StringReplace(Result,'>','>',[rfReplaceAll]);
+  Result:=StringReplace(AText,'&','&',[rfReplaceAll]);
+  Result:=StringReplace(Result,'<','<',[rfReplaceAll]);
+  Result:=StringReplace(Result,'>','>',[rfReplaceAll]);
   Result:=StringReplace(Result,#10,'',[rfreplaceAll]);
 end;
 
___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel