<?
xml version="1.0" encoding="utf-8" ?>
<codetemplate xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
version="1.0.0">
<template name="objlist" invoke="auto">
<description>
Erstellt zwei Klassen um eine Liste zu erstellen
</description>
<author>
Marc Rasmussen
</author>
<point name="classname">
<text>
ELEMENTKLASSE
</text>
<hint>
Klassenname eines Elementes
</hint>
</point>
<point name="classnamelist">
<text>
LISTENKLASSE
</text>
<hint>
Klassenname der Liste
</hint>
</point>
<point name="listenvar">
<text>
LISTENVAR
</text>
<hint>
Privater Name der Liste
</hint>
</point>
<code language="Delphi" delimiter="|"><![CDATA[
T|classnamelist| = class;
T|classname| = class(TObject)
private
|*|FParent : T|classnamelist|;
protected
public
|*|constructor Create(AParent: T|classnamelist|); reintroduce;
|*|destructor Destroy; override;
end;
T|classnamelist| = class(TObject)
private
|*|F|listenvar| : TList;
|*|function GetItems(Index: Integer): T|classname|;
protected
public
|*|constructor Create; reintroduce;
|*|destructor Destroy; override;
|*|function Add: T|classname|; overload;
|*|function Add(|classname|: T|classname|): Integer; overload;
|*|function Count: Integer;
|*|function Insert(Index: Integer): T|classname|; overload;
|*|function Insert(Index: Integer; |classname|: T|classname|): Integer; overload;
|*|procedure Clear;
|*|procedure Delete(Index: Integer); overload;
|*|procedure Delete(|classname|: T|classname|); overload;
|*|property Items[Index: Integer]: T|classname| read GetItems; default;
end;
|end|
]]>
</code>
</template>
</codetemplate>