objlist.pas

这是一个有关文本编辑器的源程序,支持彩色语法,你可以任意修改,修改后发给我一份

unit ObjList;

{

Unit ObjList
Copyright (c) 2000-2001 Sebastian Reichelt

Objekt-Listen f黵 Objektorientierte Programmierung nach den Regeln des
Software Engineering


TObjectList
	TObjectList ist die Basisklasse f黵 Objektlisten. Sie stellt alle
	Eigenschaften und Methoden f黵 eine abstrakte Liste von Objekten zur
	Verf黦ung. Sie 鋒nelt TList, wobei statt Zeigern Objekte eingef黦t
	werden k鰊nen.
	TObjectList sollte nur zum akuten Abspeichern einer bestimmten Auswahl
	an Objekten benutzt werden. F黵 alle weiteren Aufgaben stehen die
	anderen Listen zur Verf黦ung.

TObjectContainer
	Jedes Objekt, das parallel zu anderen gleichartigen Objekten dynamisch
	erzeugt wird, ben鰐igt ein 黚ergeordnetes Objekt (Owner), das s鋗tliche
	dynamischen Objekte verwaltet.
	Ein solches 黚ergeordnetes Objekt sollte ein Objekt der Klasse
	TObjectContainer oder einer davon abgeleiteten Klasse sein. Die
	dynamischen Objekte m黶sen dann von TContainerItem abgeleitet und beim
	Erstellen der 黚ergeordnete Container als Parameter an den Constructor
	Create 黚ergeben werden.
	Beim Freigeben oder Leeren (Clear) des Containers werden dann alle
	untergeordneten Objekte aus dem Speicher entfernt. Ebenso wird beim
	Freigeben eines untergeordneten Objektes dieses aus dem Container
	gel鰏cht.
	Um bei einem untergeordneten Objekt den Container zu wechseln, m黶sen
	Sie einfach der Eigenschaft Owner einen neuen Wert zuweisen. Der Owner
	kann auch NIL sein, dann handelt es sich um ein ganz normales Objekt.
	Mit PerformItemAction kann eine Integer-Konstante als Aktion an alle
	untergeordneten Objekte 黚ergeben werden. Dort wird dann die virtuelle
	Methode PerformAction aufgerufen, die das Ereignis OnAction ausl鰏t.
	Da diese Klasse von TCollection abgeleitet wurde, wird das Objekt in
	die Stream-Komponentenspeicherung mit einbezogen.

TConnectionList
	Um ein Objekt auf bestimmte Weise mit einem oder mehreren anderen zu
	verbinden, mu