j'ai juste modifié un VCL classe dans Delphi 5. Cet article permettra de garder une trace de tout ce que j'changer et pourquoi.
assurez-vous que le dossier est dans votre chemin de la bibliothèque ou de la modification de parts ne sera pas compilé.
Lors de l'utilisation d'un TCollection avec des milliers d'articles, de libérer la collection peut prendre un certain temps (10 secondes sur mon Duron 700 à 3000 articles).
dans les Classes.pas de changement
procédure TCollection.RemoveItem(Item: TCollectionItem)
var
& nbsp & nbsp Count: Integer
begin
& nbsp & nbsp NotifyDesigner(Auto, Élément, opRemove)
& nbsp & nbsp Count := FItems.Le comte
& nbsp & nbsp if (Count > 0) et (Item = FItems[Count - 1])
& ! & ! & ! & nbsp FItems.Supprimer(Count - 1)
& nbsp & nbsp else
& ! & ! & ! & nbsp FItems.Supprimer(Point)
& nbsp & nbsp Élément.FCollection := nil
& nbsp & nbsp Changé
fin
|
Vcl ameliorations
Vcl ameliorations : Plusieurs milliers de conseils pour vous faciliter la vie.
j'ai juste modifie un VCL classe dans Delphi 5. Cet article permettra de garder une trace de tout ce que j'changer et pourquoi.
assurez-vous que le dossier est dans votre chemin de la bibliotheque ou de la modification de parts ne sera pas compile.
Lors de l'utilisation d'un TCollection avec des milliers d'articles, de liberer la collection peut prendre un certain temps (10 secondes sur mon Duron 700 a 3000 articles).
dans les Classes.pas de changement
procedure TCollection.RemoveItem(Item: TCollectionItem)
var
& nbsp & nbsp Count: Integer
begin
& nbsp & nbsp NotifyDesigner(Auto, Element, opRemove)
& nbsp & nbsp Count := FItems.Le comte
& nbsp & nbsp if (Count > 0) et (Item = FItems[Count - 1])
& ! & ! & ! & nbsp FItems.Supprimer(Count - 1)
& nbsp & nbsp else
& ! & ! & ! & nbsp FItems.Supprimer(Point)
& nbsp & nbsp Element.FCollection := nil
& nbsp & nbsp Change
fin
|
