diff --git a/rtl/objpas/fgl.pp b/rtl/objpas/fgl.pp index de17b60be9..5e57120e8b 100644 --- a/rtl/objpas/fgl.pp +++ b/rtl/objpas/fgl.pp @@ -1491,7 +1491,11 @@ begin if Result then AData := TData(inherited GetData(I)^) else +{$IFDEF VER2_6} + FillChar(AData,SizeOf(TData),0); +{$ELSE} AData := Default(TData); +{$ENDIF} end; procedure TFPGMap.AddOrSetData(const AKey: TKey; const AData: TData);