acabo de alteración de un VCL clase en Delphi 5. En este artículo se va a mantener un registro de todo lo puedo cambiar y por qué.
asegúrese de que la carpeta está en la ruta de la biblioteca o la alteración de las unidades de no ser compilado.
Cuando se utiliza un TCollection con miles de artículos, la liberación de la colección puede tomar bastante tiempo (10 segundos en mi Duron 700 3000 artículos).
en las Clases.pas de cambio
procedimiento TCollection.RemoveItem(Elemento: TCollectionItem)
var
& nbsp & nbsp Count: Integer
begin
& nbsp & nbsp NotifyDesigner(Self, Elemento, opRemove)
& nbsp & nbsp Count := FItems.Cuenta
& nbsp & nbsp if (Count > 0) y (Item = FItems[Count - 1]) entonces
& nbsp & nbsp & nbsp & nbsp FItems.Eliminar(Count - 1)
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp FItems.Quitar(Punto)
& nbsp & nbsp Elemento.FCollection := nil
& nbsp & nbsp Cambiado
fin
|
Vcl mejoras
Vcl mejoras : Multi-millones de consejos para hacer su vida mas facil.
acabo de alteracion de un VCL clase en Delphi 5. En este articulo se va a mantener un registro de todo lo puedo cambiar y por que.
asegurese de que la carpeta esta en la ruta de la biblioteca o la alteracion de las unidades de no ser compilado.
Cuando se utiliza un TCollection con miles de articulos, la liberacion de la coleccion puede tomar bastante tiempo (10 segundos en mi Duron 700 3000 articulos).
en las Clases.pas de cambio
procedimiento TCollection.RemoveItem(Elemento: TCollectionItem)
var
& nbsp & nbsp Count: Integer
begin
& nbsp & nbsp NotifyDesigner(Self, Elemento, opRemove)
& nbsp & nbsp Count := FItems.Cuenta
& nbsp & nbsp if (Count > 0) y (Item = FItems[Count - 1]) entonces
& nbsp & nbsp & nbsp & nbsp FItems.Eliminar(Count - 1)
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp FItems.Quitar(Punto)
& nbsp & nbsp Elemento.FCollection := nil
& nbsp & nbsp Cambiado
fin
|
