Array Reset Probleme

[jaenicke]

Zitat von Georg25:

der Fehler kommt also wenn ich den Array auf 0 setzen will UND sich bereits Dinge im Array befinden.

Ja, welcher Fehler denn?

[Georg25]

http://www.abload.de/img/unbenanntinfw.png

Sry, vergessen, hier ist die Fehlermeldung

[Deep-Sea]

Wie sieht die Funktion HighAFRExamen aus?

Wieso wird überhaupt eine globale Variable angelegt, sogar noch in einer anderen Unit, die nur lokal in einer Prozedur Verwendung findet?
Und das:

Delphi-Quellcode:

SetLengthAFRExamen(c+1);
SetAFRExamName(c, GetAExamName(b));
SetAFRExamAnzahl(c, GetAExamAnzahl(b));

schreit irgendwie nach einer Liste. Denn ein Aufruf à la AFRExamen.Add(GetAExamName(b), GetAExamAnzahl(b)); oder gar nur AFRExamen.Add(GetAExam(b)); ist wohl weitaus besser zu nutzen.

[himitsu]

   Fehlermeldung angeguckt.
+ wissen, daß SetLength+0 und nil funktionieren
= Fazit: Du hast das Array zerschossen oder zumindestens enthaltetne gemanagte Felder (wie z.B. Strings)

z.B. Buffer Overrun und Co.

[Georg25]

Code:

function HighAFRExamen:Integer;
begin
  Result := High(AFRExamen);
end;

Eine Liste brauch ich imho nicht, da ich einen eigenen Type dafür hab

Code:

   TFRExam = record
     Name            : string;
     Anzahl          : integer;
   end;

Code:

AFRExamen     : Array of TFRExam;

das ist ja schön, dass ICH nen Fehler gemacht habe, nur ich finde einfach nicht wo, deswegen bat ich um Hilfe. Manchmal sehen 100 Augen mehr als zwei.

Die Arrays sind in einer Unit drin, wo ich von anderen drauf zugreif. Ich greife von mehrere Units drauf zu, die ich ja nach Funktion geordnet habe. (Verschiedene Sortierungsverfahren)

[p80286]

Hierzu Meine Standardfrage, was sagt der Debugger dazu?
Ich blicke nämlich durch Deine "..Examen.." nicht so richtig durch.
Und den schrei nach einer Liste kann ich gut verstehen, Da kann man übrigens mehrere Sortiermöglichkeiten implementieren.

Gruß
K-H

[Blup]

Die Fehlerursache liegt scheinbar nicht in den geposteten Zeilen (so unschön diese auch sind).
Ich würde erst einmal die Bereichsprüfung anschalten und das Projekt neu übersetzen.