Ich habe nur eine VCL-Klasse in Delphi 5 geändert. Dieser Artikel wird behalten den Überblick über alles, was ich ändern und warum.
Stellen Sie sicher, dass der Ordner, in Ihren Bibliotheken-Pfad ist oder die veränderten Einheiten werden nicht kompiliert.
Bei Verwendung eines TCollection mit Tausenden von Produkten befreien die Auflistung kann durchaus eine Weile dauern (10 Sekunden auf mein Duron 700 bis 3000 Artikel).
Classes.pas Änderung
Prozedur TCollection.RemoveItem(Item: TCollectionItem);
var
Anzahl: Integer;
beginnen
NotifyDesigner (Self, Element, OpRemove);
Count: = FItems.Count;
Wenn (Count > 0) und (Item = FItems [Count - 1]) dann
FItems.Delete (Count - 1)
sonst
FItems.Remove(Item);
Item.FCollection: = Nil;
Geändert;
Ende;
|
VCL-Erweiterungen
VCL-Erweiterungen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Ich habe nur eine VCL-Klasse in Delphi 5 geändert. Dieser Artikel wird behalten den Überblick über alles, was ich ändern und warum.
Stellen Sie sicher, dass der Ordner, in Ihren Bibliotheken-Pfad ist oder die veränderten Einheiten werden nicht kompiliert.
Bei Verwendung eines TCollection mit Tausenden von Produkten befreien die Auflistung kann durchaus eine Weile dauern (10 Sekunden auf mein Duron 700 bis 3000 Artikel).
Classes.pas Änderung
Prozedur TCollection.RemoveItem(Item: TCollectionItem);
var
Anzahl: Integer;
beginnen
NotifyDesigner (Self, Element, OpRemove);
Count: = FItems.Count;
Wenn (Count > 0) und (Item = FItems [Count - 1]) dann
FItems.Delete (Count - 1)
sonst
FItems.Remove(Item);
Item.FCollection: = Nil;
Geändert;
Ende;
|
