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

codetools: fixed ChangeLineEndings if #10 at end

Browse Source 
git-svn-id: branches/fixes_1_4@47832 -
This commit is contained in:
mattias 2015-02-16 18:55:04 +00:00
parent 8cba2146b2
commit 30c7ebb5d4
1 changed files with 23 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
components/codetools/sourcelog.pas
View File

@ -226,11 +226,9 @@ end;
function ChangeLineEndings(const s, NewLineEnding: string): string;
var
NewLength: Integer;
p, StartPos: Integer;
Src: PChar;
Dest: PChar;
p: Integer;
Src, Dest, StartPos, EndPos: PChar;
EndLen: Integer;
EndPos: PChar;
begin
if s='' then begin
Result:=s;
@ -238,16 +236,28 @@ begin
end;
EndLen:=length(NewLineEnding);
NewLength:=length(s);
p:=1;
while p<length(s) do begin
if s[p] in [#10,#13] then begin
StartPos:=p;
Src:=PChar(s);
repeat
case Src^ of
#0:
if Src-PChar(s)=length(s) then
break
else
inc(Src);
#10,#13:
begin
if (Src[1] in [#10,#13]) and (Src^<>Src[1]) then begin
inc(Src,2);
inc(NewLength,EndLen-2);
end else begin
inc(Src);
inc(NewLength,EndLen-1);
end;
end;
else
inc(p);
if (s[p] in [#10,#13]) and (s[p]<>s[p-1]) then inc(p);
inc(NewLength,EndLen-(p-StartPos));
end else
inc(p);
end;
end;
until false;
SetLength(Result,NewLength);
Src:=PChar(s);
Dest:=PChar(Result);