Aufzählungstyp und Array: Fehler beim Zugriff per Index

[sonicus83]

Hallo,

bei einem Array aus einem Aufzählungstyp bekomme ich nur Fehler beim Zugriff auf die Elemente (bei "anteil_typ[i_typ] := 0"). Wenn ich im Debugger mir die Variable anteil_typ anschaue, ist hier der Index 0..2 gegeben. Ist dieser Index nur intern oder liegt irgendwo in der Definition der Fehler? Ich komm irgendwie nicht drauf.

Der Fehler: Exception-Klasse $C0000005 mit der Meldung 'c000005 ACCESS_VIOLATION'.

Code:

TAufzaehlungstyp = (tA, tB, tC);

[...]

var
  i_typ: TAufzaehlungstyp ;
  anteil_typ: array[TAufzaehlungstyp] of double;

[...]

  for i_typ:= low(TAufzaehlungstyp) to high(TAufzaehlungstyp) do begin
    anteil_typ[i_typ] := 0;
  end;

Folgendes Beispiel habe ich im Internet gefunden, das sollte doch übertragbar sein?

Code:

type
  TWeekDay = (wdMon, wdTue, wdWed, wdThu, wdFri, wdSat, wdSun);

var
  wd     : TWeekDay;
  Income : array[TWeekDay] of double;
  sum    : double;

begin
sum := 0;
for wd:=wdMon to wdFri do
  sum := sum + Income[wd];
end;

Vielen Dank für jeden Hinweis!

[Bjoerk]

Der TAufzaehlungstyp Code ist korrekt.

[baumina]

Der Code funktioniert, zu beachten ist, dass die Variable i_typ nur lokal definiert werden sollte, sie ist nur innerhalb der for-Schleife gültig.

[Sir Rufo]

Zitat von baumina:

Der Code funktioniert, zu beachten ist, dass die Variable i_typ nur lokal definiert werden sollte, sie ist nur innerhalb der for-Schleife gültig.

Die Variable selbst ist immer gültig (wenn deklariert) nur der Wert kann nach der Schleife undefiniert sein

[baumina]

Richtig

[Dejan Vu]

Zitat von Sir Rufo:

Die Variable selbst ist immer gültig (wenn deklariert) nur der Wert kann nach der Schleife undefiniert sein

Eine weitere eklatante Schwäche von Delphi.

[Neutral General]

Zitat von Dejan Vu:

Zitat von Sir Rufo:

Die Variable selbst ist immer gültig (wenn deklariert) nur der Wert kann nach der Schleife undefiniert sein

Eine weitere eklatante Schwäche von Delphi.

Wenn du deine Schleifenvariable außerhalb der Schleife noch benötigst machst du wahrscheinlich irgendwas falsch.

[Union]

Irgend etwas verheimlichst Du uns. Folgender Code läuft problemlos:

Delphi-Quellcode:

program Aufzaehlungstyp;

{$APPTYPE CONSOLE}

type
  TAufzaehlungstyp = (tA, tB, tC);

  var
  i_typ: TAufzaehlungstyp ;
  anteil_typ: array[TAufzaehlungstyp] of double;

begin
  for i_typ:= low(TAufzaehlungstyp) to high(TAufzaehlungstyp) do begin
    anteil_typ[i_typ] := 0;
  end;
end.