Verschiedene Aufzählungstypen in einer Funktion verwenden.

[Sir Rufo]

Meinst du sowas?

Delphi-Quellcode:

interface

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

implementation

procedure EineBerechnungFuerfData(aType1,aType2:TAtype1);
var 
  a:integer;
begin
  // Jetzt ein einfacher code, der aber viel komplexer ist
 
  for a:=0 to length(fData1) do
    begin
      fData1[a,aType1]:=fData1[a,aType2];
    end;
end;

procedure EineBerechnungFuerfData(aType1,aType2:TAtype2);
begin
  // Im Prinzip der gleiche Programmcode, nur das ganze passiert für fData2
 
  for a:=0 to length(fData2) do
    begin
      fData2[a,aType1]:=fData1[a,aType2];
    end;
end;