Changeset 16 for trunk/Packages

Timestamp:

Mar 19, 2013, 9:43:12 PM (12 years ago)

Author:

chronos

Message:

• Opraveno: Načítání stavu účtu na českých Windows s desetinnou čárkou.
• Opraveno: Automatický výběr aktivního účtu.

File:

• trunk/Packages/TemplateGenerics/Generic/GenericListObject.inc (modified) (1 diff)

trunk/Packages/TemplateGenerics/Generic/GenericListObject.inc

@@ -67 +67 @@
 procedure TGListObject.Put(Index: TGListIndex; const AValue: TGListItem);
 begin
-  if OwnsObjects and (FItems[Index] <> AValue) then FItems[Index].Free;
+  if OwnsObjects and (FItems[Index] <> AValue) and Assigned(FItems[Index]) then FItems[Index].Free;
   inherited Put(Index, AValue);
 end;