Verschiedene Aufzählungstypen in einer Funktion verwenden.

[bernau]

Zitat von Sir Rufo:

Meinst du sowas?

Delphi-Quellcode:

procedure EineBerechnungFuerfData(aType1,aType2:TAtype1); overload;
procedure EineBerechnungFuerfData(aType1,aType2:TAtype2); overload;

Ne auch das meinte ich nicht. Mir geht es darum die Procedure nur einmal zu haben. Bei deiner Version ist die Procedure zwei mal vorhanden. Und dies mit fast identischem Code. So habe ich es ja jetzt, nur das diese Procedure etwas komplexer (>50Zeilen) ist. Die zweite Procedure wurde quasi kopiert und mit einem Copy/Paste wurde Type1 gegen Type2 ausgetauscht. Nun habe ich das ziemlich vereinfacht im ersten Post beschrieben. Tatsächlich gibt es aber nicht nur Type1 und Type2 sonder auch Type3 Type4 und Type5. Damit hätte ich den gleichen Code fünf mal. Und das ist bestimmt kein guter Programmierstil