Переглянути джерело

Cleanup parse code for ssCompression (Value is already trimmed) and ssInternalCompressLevel (LowerCase not required, also not by LZMAGetlevel).

Martijn Laan 1 рік тому
батько
коміт
43becdf57c
1 змінених файлів з 1 додано та 2 видалено
  1. 1 2
      Projects/Src/Compile.pas

+ 1 - 2
Projects/Src/Compile.pas

@@ -3620,7 +3620,7 @@ begin
         end;
         end;
       end;
       end;
     ssCompression: begin
     ssCompression: begin
-        Value := Lowercase(Trim(Value));
+        Value := LowerCase(Value);
         if Value = 'none' then begin
         if Value = 'none' then begin
           CompressMethod := cmStored;
           CompressMethod := cmStored;
           CompressLevel := 0;
           CompressLevel := 0;
@@ -3797,7 +3797,6 @@ begin
         InfoAfterFile := Value;
         InfoAfterFile := Value;
       end;
       end;
     ssInternalCompressLevel: begin
     ssInternalCompressLevel: begin
-        Value := Lowercase(Trim(Value));
         if (Value = '0') or (CompareText(Value, 'none') = 0) then
         if (Value = '0') or (CompareText(Value, 'none') = 0) then
           InternalCompressLevel := 0
           InternalCompressLevel := 0
         else if not LZMAGetLevel(Value, InternalCompressLevel) then
         else if not LZMAGetLevel(Value, InternalCompressLevel) then