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; end;
Len := Length(Result) - Length(LineEnding); 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); SetLength(Result, Len);
end; end;