Einfache Datentypen schnell zusammenbauen?

[jaenicke]

Im Anhang liegt das ganze Template. Beispiel:

Delphi-Quellcode:

  TTypedObjectListItem = TLayoutBlockInfo;
  {$include TypedObjectListTemplate.inc}
  TLayoutBlockInfoList = class(TTypedObjectListTemplate)
  ...

  TTypedObjectListItem1 = TLayoutExpressionInfo;
  {$define ObjectList1}
  {$include TypedObjectListTemplate.inc}
  {$undef ObjectList1}
  TLayoutExpressionInfoList = class(TTypedObjectListTemplate1)
  ...

implementation

{$define ImplementationSection}
{$include TypedObjectListTemplate.inc}
{$define ObjectList1}
{$include TypedObjectListTemplate.inc}