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

IDE: custom options in makefile: combine linebreaks to single spaces

Browse Source 
git-svn-id: trunk@29471 -
This commit is contained in:
mattias 2011-02-11 18:55:34 +00:00
parent d94246f616
commit d1da1d5e40
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/ideprocs.pp
View File

@ -1662,8 +1662,23 @@ end;
function SpecialCharsToSpaces(const s: string; FixUTF8: boolean): string; function SpecialCharsToSpaces(const s: string; FixUTF8: boolean): string;
var var
i: Integer; i: Integer;
p: LongInt;
begin begin
Result:=s; Result:=s;
// convert line breaks to single spaces
i:=length(Result);
while (i>=1) do begin
if Result[i] in [#10,#13] then begin
Result[i]:=' ';
p:=i;
while (i>1) and (Result[i-1] in [#10,#13]) do dec(i);
if p>i then
System.Delete(Result,i,p-i);
end;
dec(i);
end;
// convert special characters to spaces
for i:=1 to length(Result) do for i:=1 to length(Result) do
if Result[i] in [#0..#31,#127] then Result[i]:=' '; if Result[i] in [#0..#31,#127] then Result[i]:=' ';
if Result='' then exit; if Result='' then exit;