Einfache Datentypen schnell zusammenbauen?

[Dejan Vu]

So richtig lesbar/übersichtlich ist das ja nicht gerade...

[jaenicke]

Immer noch besser als die ganze Klasse jedesmal neu zu schreiben. Und ohne die Unterstützung der echten Generics brauchst du ja auch den größten Teil nicht. Ohne reicht ja das:

Delphi-Quellcode:

  TTypedObjectListItem = TPosScreenElement;
{$include 'TypedObjectListTemplate.inc'}
  TPosScreenElementList = class(TTypedObjectListTemplate)
// und nach dem Implementation noch ein Include

Insbesondere aber die einfache Unterstützung von echten Generics und alten Delphis mit nur wenigen Zeilen fand ich aber sehr interessant, da ich auf Generics nicht verzichten wollte, aber auch möglichst wenig redundanten bzw. extra für alte Versionen geschriebenen Code wollte.

[Namenloser]

Den Trick kann man allerdings nur einmal pro Unit verwenden.

[jaenicke]

Nein, ich hatte mehrere ifdefs drin, so dass bis zu drei gingen. Aber sauberer ist ohnehin eine Definition pro Unit.

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