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

* Fix compilation under non win32 and fpc 240

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1120 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2010-01-07 15:38:32 +00:00
parent ef5512dd58
commit 975c2eac17
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4697,7 +4697,7 @@ begin
end;
Len := Length(Result) - Length(LineEnding);
if CompareByte(Result[Len + 1], LineEnding, Length(LineEnding)) = 0 then
if CompareByte(Result[Len + 1], String(LineEnding)[1], Length(LineEnding)) = 0 then
SetLength(Result, Len);
end;