Verbesserungen VCL

Ich habe gerade eine Klasse geändert VCL in Delphi 5 Dieser Artikel wird den Überblick über all diese Veränderungen und warum halten.

Sicherstellen, dass der Ordner in Ihrem Pfad oder Bibliothekseinheiten verändert sich nicht kompilieren.



Bei Verwendung eines TCollection mit Tausenden von Objekten, kann die Befreiung der Sammlung ein bisschen "Zeit (10 Sekunden auf meinem Duron 700 von 3000 Artikel) statt.



ändern in Classes.pas



Verfahren TCollection.RemoveItem (Voice: TCollectionItem);

var

Count: Integer;

Start

NotifyDesigner (self, Stimme, opRemove);

Graf: = FItems.Count;

if (count> 0) und (item = FItems [Count - 1]), so

FItems.Delete (Anzahl - 1)

andere

FItems.Remove (Gesang);

Item.FCollection: = nil;

Geändert wird;

Ende;


(0)
(0)

Kommentare - 0

Keine Kommentare

Fügen Sie einen Kommentar

smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile
Zeichen übrig: 3000
captcha