Verschiedene Aufzählungstypen in einer Funktion verwenden.

[Bummi]

so?

Delphi-Quellcode:

  TAtype1 = (def1_x1, def1_x2, def1_x3, def1_x4, def1_x5, def1_x6);
  TAtype2 = (def2_y1, def2_y2, def2_y3);
  TAtype1Data = array [low(TAtype1) .. high(TAtype1)] of string;
  TAtype2Data = array [low(TAtype2) .. high(TAtype2)] of string;
  TAtype1DataArray = array of TAtype1Data;
  TAtype2DataArray = array of TAtype2Data;
  var
  fData1: TAtype1DataArray;
  fData2: TAtype2DataArray;

Function eineBerechnungFuerData1Und2(a,b:TAtype1;var c:TAtype1DataArray):Integer;
begin
 // 
end;

eineBerechnungFuerData1Und2(def1_x1,def1_x2,fdata1);

[himitsu]

Zitat:

TAtype1Data = array [lo(TAtype1) .. high(TAtype1)] of string;

Bei ordinalen Typen und mit vollständigem Wertebereich, da kann man es sich auch einfach machen.
TAtype1Data = array [TAtype1] of string;

[bernau]

Zitat von himitsu:

Bei ordinalen Typen und mit vollständigem Wertebereich, da kann man es sich auch einfach machen.
TAtype1Data = array [TAtype1] of string;

Aahhh. Wieder was gelernt. Danke.

[bernau]

Zitat von Bummi:

so?

Delphi-Quellcode:

Function eineBerechnungFuerData1Und2(a,b:TAtype1;var c:TAtype1DataArray):Integer;
begin
 // 
end;

eineBerechnungFuerData1Und2(def1_x1,def1_x2,fdata1);

Ne. Leider nicht. Dann könnte ich ja nur fData1 übergeben und nicht fData2. Und die ersten beiden Werte der Funktion dürften auch nur vom Type TAtype1 sein und nicht vom Type TAtype2.