pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fix WrapString

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1045 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-12 21:01:20 +00:00
parent 00fcff257a
commit a8f48f3906
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -4740,10 +4740,9 @@ begin
end; end;
end; end;
Len := Length(Result); Len := Length(Result) - Length(LineEnding);
//todo: test if StrLComp(PChar(@Result[Len + 1]), PChar(@LineEnding[1]), Length(LineEnding)) = 0 then
if Result[Len - Length(LineEnding) + 1] = LineEnding[1] then SetLength(Result, Len);
SetLength(Result, Len - 1);
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------