paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 20:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

FPDoc, issues with line-endings. Bug #15053

Browse Source 
git-svn-id: trunk@22555 -
This commit is contained in:
martin 2009-11-13 01:30:40 +00:00
parent aa67f8e364
commit bf83effddd
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/codehelp.pas
View File

@ -347,22 +347,26 @@ var
begin
Result:=s;
p:=1;
while (p<=length(s)) do begin
if not (s[p] in [#10,#13]) then begin
while (p<=length(Result)) do begin
if not (Result[p] in [#10,#13]) then begin
inc(p);
end else begin
// line ending
if (p<length(s)) and (s[p+1] in [#10,#13]) and (s[p]<>s[p+1]) then begin
if (p<length(Result)) and (Result[p+1] in [#10,#13]) and (Result[p]<>Result[p+1]) then begin
// double character line ending
if (length(le)<>2)
or (le[1]<>s[p]) or (le[2]<>s[p+1]) then begin
or (le[1]<>Result[p]) or (le[2]<>Result[p+1]) then begin
Result:=copy(Result,1,p-1)+le+copy(Result,p+2,length(Result));
end;
inc(p, length(le)-1);
end
else
inc(p);
end else begin
// single char line ending #13 or #10
if (length(le)<>1)
or (le[1]<>s[p]) then begin
or (le[1]<>Result[p]) then begin
Result:=copy(Result,1,p-1)+le+copy(Result,p+1,length(Result));
inc(p, length(le)-1);
end;
end;
inc(p);