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

svn classes: fixed bug in reading properties

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@237 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-08-12 18:04:25 +00:00
parent ab89744bda
commit 8e9785fc48
1 changed files with 2 additions and 1 deletions

3
components/svn/svnclasses.pas

@ -642,7 +642,8 @@ begin
// try for a multiline property
inc(i);
while (i<Lines.Count) do begin
if (length(Lines[i])>=2) and (copy(Lines[i],1,2)=' ') then begin
if ((length(Lines[i])>=2) and (copy(Lines[i],1,2)=' '))
or (copy(Lines[i], 1, length(PropertiesOn))=PropertiesOn) then begin
// new property, unget line
dec(i);
break;