TList ableiten - Pointer -> eigener Pointertyp

[alcaeus]

Hallo StefanDP,

ich habe vor einer Weile TObjectList so abgeleitet, dass sie praktisch jeden Typ aufnehmen kann, ohne dass du lang rumfummeln musst. Die Loesung sind so genannte Templates, bei denen der Compiler einfach ein paar Extrarunden dreht
Das Ganze findest du hier: http://www.delphipraxis.net/internal...ct.php?t=56879
Und nachdem ich in Geberlaune bin, hier mal eine Unit fuer so ein Template:

Delphi-Quellcode:

unit Foobar;

interface

uses Contnrs;

type TMyItemClass = class(TObject)
  private
    fFoo: String;
    fBar: Integer;
  published
    property Foo: String read fFoo;
    property Bar: String read fBar;
  end;

_LIST_ITEM_ = TMyItemClass;
{$DEFINE TYPED_LIST_TEMPLATE}
{$INCLUDE objlist_tmpl.pas}
TMyTypedList = _LIST_;

implementation

{$INCLUDE objlist_tmpl.pas}

end.

Tja, und das war der Spass auch schon; fertig ist deine typisierte Liste (wenn ich nichts vergessen hab *g*)

Greetz
alcaeus