Fixup package reset for dynamic paths

This commit is contained in:
Marc Durdin 2017-08-11 10:48:07 +07:00
parent 8d259ec032
commit e0eb052669
2 changed files with 2 additions and 2 deletions

View file

@ -198,7 +198,7 @@ begin
GetValueNames(FValues);
for I := 0 to FValues.Count - 1 do
begin
if SameText(Copy(FValues[I], 1, 11), CSourceRootLibPath+'\') then
if SameText(Copy(FValues[I], 1, Length(CSourceRootLibPath)+1), CSourceRootLibPath+'\') then
DeleteValue(FValues[I]);
end;
finally
@ -212,7 +212,7 @@ begin
try
GetValueNames(FValues);
for I := 0 to FValues.Count - 1 do
if SameText(Copy(FValues[I], 1, 11), CSourceRootLibPath+'\') then
if SameText(Copy(FValues[I], 1, Length(CSourceRootLibPath)+1), CSourceRootLibPath+'\') then
DeleteValue(FValues[I]);
finally
FValues.Free;