From 8d3eece0e7aea657d66427ed0867780f09f0ffce Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Mon, 1 Apr 2013 20:49:27 +0000
Subject: [PATCH] Tools, LazRes, trim filelist which should fix the case when
 there are spaces before the file name, issue #24139

git-svn-id: trunk@40685 -
---
 tools/lazres.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tools/lazres.pp b/tools/lazres.pp
index ef07665195..abea1f6df0 100644
--- a/tools/lazres.pp
+++ b/tools/lazres.pp
@@ -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;