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

Tools, LazRes, trim filelist which should fix the case when there are spaces before the file name, issue

Browse Source 
git-svn-id: trunk@40685 -
This commit is contained in:
jesus 2013-04-01 20:49:27 +00:00
parent a3c424c1e1
commit 8d3eece0e7
1 changed files with 4 additions and 1 deletions

5
tools/lazres.pp
View File

@ -90,8 +90,11 @@ begin
// cleanup lines
for a:=fileList.Count-1 downto 0 do begin
s := Trim(filelist[a]);
if (s='') or (s[1]='#') then
if (s='') or (s[1]='#') then begin
filelist.Delete(a);
continue;
end;
filelist[a] := s;
if filelist.Names[a]='' then
filelist[a] := filelist[a] + '=';
end;