Fixed parameter checking in UpdateStringListPref.

This commit is contained in:
Salvador Díaz Fau 2018-08-13 09:41:08 +02:00
parent 17a3b8e61c
commit eaca9d8b65

View File

@ -2548,7 +2548,7 @@ begin
TempSL := nil; TempSL := nil;
try try
if (length(name) > 0) and (length(aValue) > 0) then if (length(aName) > 0) and (length(aValue) > 0) then
begin begin
TempSL := TStringList.Create; TempSL := TStringList.Create;
TempSL.CommaText := aValue; TempSL.CommaText := aValue;