By Peter Morris
EMAIL ARTICLE
PRINT ARTICLE

Acabo de un alterado VCL clase en Delphi 5. En este artículo se seguirá la pista de algo que cambiar y por qué.

Asegúrese de que la carpeta está en camino de su biblioteca o la alteración de las unidades no se compilan.

Cuando se utiliza un TCollection con miles de artículos, la liberación de la colección puede tomar un buen tiempo (10 segundos en mi Duron 700 de 3000 artículos).

en cambio classes.pas


procedimiento TCollection.RemoveItem (Tema: TCollectionItem);
var
Cuenta: Integer;
empezar
NotifyDesigner (Self, Tema, opRemove);
Cuenta: = FItems.Count;
if (Conde> 0) y (Tema FItems = [Conde - 1]), entonces
FItems.Delete (Conde - 1)
algo más
FItems.Remove (Tema);
Item.FCollection: = nil;
Cambiado;
final;


Average rating:
Bookmark this article:    

Be the First to Comment on this Article