Array Reset Probleme

[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

Delphi-Quellcode:

AFRExamen.Add(GetAExamName(b), GetAExamAnzahl(b));

oder gar nur

Delphi-Quellcode:

AFRExamen.Add(GetAExam(b));

ist wohl weitaus besser zu nutzen. :stupid:

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

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