Einfache Datentypen schnell zusammenbauen?

[Namenloser]

Zitat von jaenicke:

Nein, ich hatte mehrere ifdefs drin, so dass bis zu drei gingen.

Kannst du mir das mal zeigen? Kann ich mir jetzt nicht so direkt vorstellen. Ich hab eher nicht vor, das wirklich einzusetzen, aber es interessiert mich.

[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}