|
@@ -4841,8 +4841,12 @@ begin
|
|
tkDynArray:
|
|
tkDynArray:
|
|
begin
|
|
begin
|
|
dynarr:=Nil;
|
|
dynarr:=Nil;
|
|
- DynArrayFromVariant(dynarr, Value, PropInfo^.PropType);
|
|
|
|
- SetDynArrayProp(Instance, PropInfo, dynarr);
|
|
|
|
|
|
+ try
|
|
|
|
+ DynArrayFromVariant(dynarr, Value, PropInfo^.PropType);
|
|
|
|
+ SetDynArrayProp(Instance, PropInfo, dynarr);
|
|
|
|
+ finally
|
|
|
|
+ DynArrayClear(dynarr, PropInfo);
|
|
|
|
+ end;
|
|
end;
|
|
end;
|
|
else
|
|
else
|
|
raise EPropertyConvertError.CreateFmt('SetPropValue: Invalid Property Type %s',
|
|
raise EPropertyConvertError.CreateFmt('SetPropValue: Invalid Property Type %s',
|