Ignore blank line and whitespaces

diff --git a/bottleclient/BottleChainRule.pas b/bottleclient/BottleChainRule.pas
index 8cffa0f..a2b5fba 100755 (executable)
--- a/bottleclient/BottleChainRule.pas
+++ b/bottleclient/BottleChainRule.pas
@@ -1642,7 +1642,7 @@ begin
         Line := Strs[i];
         if Line = '' then
           Continue;
-        Line := StringReplace(Trim(Line), ' ', '', [rgReplaceAll]);
+        Line := StringReplace(Trim(Line), ' ', '', [rfReplaceAll]);
         P := 1;
         Item := New.Add as TSurfaceReplaceItem;
         while true do