Array Reset Probleme

[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.

[Bjoerk]

wird in SetAFRExamName oder SetAFRExamAnzahl etwas erzeugt ?

[Georg25]

Zitat:

Da kann man übrigens mehrere Sortiermöglichkeiten implementieren.

Um sortieren gehts nicht so richtig, denn die "Sortierung" ist ziemlich kompliziert (z.b. Greedy) und nicht nach z.b. Größe

Zitat:

wird in SetAFRExamName oder SetAFRExamAnzahl etwas erzeugt ?

Nein, das sind "nur" zuweisungen (Halt "normale" Get/Set Methoden)

Code:

procedure SetAFRExamName(ItemID:Integer; Value:String);
begin
  AFRExamen[ItemID].Name := Value;
end;

Code:

procedure SetAFRExamAnzahl(ItemID:Integer; Value:Integer);
begin
  AFRExamen[ItemID].Anzahl := Value;
end;

[himitsu]

Hast du die Überlauf- und Bereichsprüfung in den Projektoptionen aktiviert?


Ansonsten schreit der Code förmlich danach, um OOP-mäßig in eine Klasse verpackt zu werden.

[Bjoerk]

Georg,
wenn SetLength(Dingens, 0) nicht ausgeführt wird, dann wird wahrscheinlich bezüglich Dingens[i] etwas erzeugt.