paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed unneeded Trim() from chm fiftimain

Browse Source 
git-svn-id: trunk@20418 -
This commit is contained in:
andrew 2012-02-23 22:18:27 +00:00
parent 0cd9e7fee9
commit 3dd4514724
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/chm/src/chmfiftimain.pas
View File

@ -536,8 +536,9 @@ begin
FBlockStream.WriteByte(Offset);
// length can be 0 if it is the same word as the last. there is a word entry each for title and content
if Length(NewWord) > 0 then
FBlockStream.Write(NewWord[1], Length(Trim(NewWord)));
FBlockStream.Write(NewWord[1], Length(NewWord));
FBlockStream.WriteByte(Ord(AWord.IsTitle));
WriteCompressedIntegerBE(FBlockStream, AWord.DocumentCount);