Verständnis: Zugriff auf Typen

[d7user1]

hallo, ich habe folgendes:

Delphi-Quellcode:

type
  TWochentag = (Montag, Dienstag, Mittwoch, Donnerstag, Freitag, Samstag, Sonntag);

// ...
var
  Tag: TWochentag;

// ...
procedure test(test: Byte);
begin;
  if test = 0 then
   begin
    // tue A
   end
  else if test = 1 then
   begin
    // tue B
   end;
  // usw.
end;

// ...
for i := 0 to 10 do
 begin
  MeineUnit.test(MeineUnit.Tag(i)); // <- Fehler: E2066: Operator oder Semikolon fehlt.
 end;

kann ich nicht einfach auf Tag(i) oder Tag[i] zugreifen?

denn Tag.Montag; ist ja auch gültig. aber ich würde nur ungerne in der schleife folgendes machen:

Delphi-Quellcode:

for i := 0 to Integer(high(MeineUnit.Tag)) do // fehler korrigiert
 begin
  if i = 0 then
   MeineUnit.test(MeineUnit.Tag.Montag)
  else if i = 1 then
   MeineUnit.test(MeineUnit.Tag.Dienstag;
  // usw.
 end;

[Uwe Raabe]

Nicht Tag(I) sondern TWochentag(I) .

[himitsu]

oder
ListBox1.Items.Add(MeineUnit.test(i));
oder
MeineUnit.test(Ord(MeineUnit.Tag))
(k.A. was genau gemacht werden soll)

Aber wenn ich mir deine Schleife anseh ... Bist du dir sicher, daß "Tag" (echt blöder Name) ein ENUM sein soll, oder nicht etwa ein SET?

[BUG]

Oder auch:

Delphi-Quellcode:

var
  i: TWochentag;
// ...
for i := low(TWochentag) to high(TWochentag) do
begin
  MeineUnit.test(i)
end;

[Helmi]

wenn du, nebenbei bemerkt, 11 Schleifendurchgänge willst for i := 0 to 10 do ,
dann wird´s ab i = 7 knallen, da dein TWochentag nur 7 Elemente (0..6) enthält.

[d7user1]

Delphi-Quellcode:

var
  i: TWochentag;
// ...
for i := low(TWochentag) to high(TWochentag) do
begin
  MeineUnit.test(i)
end;

kann ich leider nicht benutzen da ich des öfteren mal if i = 1 then usw. abfrage.

das hat sich dank Integer(i) erledigt.

aber ein aufruf folgendermaßen sagt mir es würde ein komma fehlen:

Delphi-Quellcode:

i: TWochentag; // ...
MeineUnit.test( MeineUnit.Tag(Integer(i)));

[Sir Rufo]

Zitat von d7user1:

Delphi-Quellcode:

var
  i: TWochentag;
// ...
for i := low(TWochentag) to high(TWochentag) do
begin
  MeineUnit.test(i)
end;

kann ich leider nicht benutzen da ich des öfteren mal if i = 1 then usw. abfrage.

enum? set?

Dann solltest du deine Logik überdenken, oder mit Ord( i ) arbeiten.
Klarer wird der Code allerdings durch if i = Dienstag then

[d7user1]

ok das habe ich nun gemacht. es ist nun überall if i = Dienstag usw. zu finden.

aber ein zugriff folgendermaßen funktioniert leider noch immer nicht:
 MeineUnit.test( MeineUnit.Tag(Integer(i)));

[Sir Rufo]

Zitat von d7user1:

ok das habe ich nun gemacht. es ist nun überall if i = Dienstag usw. zu finden.

aber ein zugriff folgendermaßen funktioniert leider noch immer nicht:
 MeineUnit.test( MeineUnit.Tag(Integer(i)));

Ja, und ... warum übernimmst du auch nur die Hälfte?

MeineUnit.test(i)