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:

Zitat von baumina (Beitrag 1322489)

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 :thumb:

[Dejan Vu]

Zitat:

Zitat von Sir Rufo (Beitrag 1322515)

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:

Zitat von Dejan Vu (Beitrag 1322529)

Zitat:

Zitat von Sir Rufo (Beitrag 1322515)

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.