Unlösbares Problem?

[Lotus]

Hallo,

ich programmiere zur Zeit mein eigenes Pokerspiel, es ist wahrscheinlich alles nicht sehr intelligent gelöst (mit Arrays und kein OOP) aber das reicht mir erstmal für den Anfang.

Jetzt aber mein Problem:

Ab und zu kommt eine EAccessViolation, also ein Zugriffsfehler auf den Speicher vor... und das Problem ist, dass es wirklich nur selten so ist!!!

Hier die Code-Zeile, die mir Delphi als falsch makiert:

Delphi-Quellcode:

for i:=0 to high(KartenArray) do begin
if (KartenArray[i].KartenZiffer = KartenArray[i+1].KartenZiffer)
....
end;

Naja, jetzt dachte ich mir, okay... ist ja logisch wenn ich in einem Array was von 0-5 geht durchgehe und dann auf [i+1] zugreifen will, das dann ein Fehler auftaucht.. aber die Frage ist jetzt, wieso taucht der Fehler nur manchmal auf?

Ich hab mir eine Endlosschleife gebastelt in dem immer wieder simuliert wird, wie das Spiel neugestartet wird.. Gleichzeitig nen Zaehler mitlaufen lassen... Die unterschiedlichsten Werte sind dafür rausgekommen:
579,190,932,293,1258,119,6599,537,15353....

Das kann doch nicht sein?

Ich teste es gerade mit der Schleife bis zu high -1 und es scheint gut zu laufen.. aber wieso taucht der Fehler oben nur so selten auf?

[himitsu]

Nja, wenn zufällig hinter dem Array etwas liegt, welches hier rein zufällig auch noch paßt, dann gibt es natürlich keinen Zugriffsfehler.

Delphi-Quellcode:

for i:=0 to high(KartenArray) - 1 do begin

.


Ich kann es allen immer wieder nur nochmal sagen:
Man sollte mal in den Projektoptionen die Überlauf- und die Bereichprüfung anschalten.

[hboy]

Ob ein Fehler kommt oder nicht hängt meines Erachtens nach davon ab, ob hinter dem Speicherblock noch ein Stück Speicherbereich kommt, das schon von deinem Programm alloziiert wurde. Jenachdem, wie die Speicherverwaltung gelöst ist, kann also nach dem array noch eine andere Datenstruktur oder überschüssiger Speicher liegen, dann sind Adresszeiger in diesen Raum gültig und die Fehlermeldung bleibt aus. Zu Fehlverhalten kann es trotzdem kommen, etwa wenn man ein dynamisches Array ausliest.

edit: himitsu war mal wieder schneller ;-)

[Lotus]

Okay danke für die schnelle Erklärung... allerdings habe ich in den Projektoptionen die Option angeschalten!

[himitsu]

Dann dürfte man bei sowas nicht außerhalb der Arraygrenzen zugreifen können. :gruebel:

[mkinzler]

Und zu High() gehört Low()

[himitsu]

Dynamische Arrays fangen eh immer nur bei 0 an. :angel:

[mkinzler]

Vielleicht kommt man aber auf deie Idee das einmal zu ändern.

[himitsu]

Dann wäre Delphi aber nicht mehr abwärtkompatibel. :tongue:
(aus diesem Grund schleppen wir ja auch schon seit unzähligen Jahren diese 1 bei den Strings mit uns rum)

[SirThornberry]

@Lotus: Bitte gib deinem Thema, entsprechend den Forenregeln, einen aussagekräftigen Titel. Der jetzige Titel sagt rein gar nichts über dein Problem aus. :)

[alzaimar]

Sagt mal, die Bereichsprüfung funktioniert auch bei dynamischen Arrays?

[himitsu]

Diese arbeitet nur bei dynamischen Arrays. (String = aufgemotztes dyn. Array)


Bei statischen Arrays meldet sich der Compiler mit einer Fehlermeldung, egal ob die Bereichsprüfung an oder aus ist.
(mit Ausnahme der [0..0], welche ohne Prüfung durchgeht)

[hboy]

Delphi-Quellcode:

type
  TTestArray = Array of Byte;
  PTestArray = ^TTestArray;

procedure TForm1.Button1Click(Sender: TObject);
var
  q : PTestArray;
begin
  q^[10] := 1;
end;

Zugegebenermaßen ist das etwas weit hergeholt, aber hier kommt gleich eine handfeste Zugriffsverletzung. Nicht, dass der code einen Sinn hätte, aber er zeigt zumindest in Delphi 7, dass die Bereichsprüfung erst nach dem Anlegen eines Feldes zu greifen scheint. Sobald Speicher dafür reserviert oder ein anderes Feld zugewiesen wurde, kommen range check - Fehler.

[mkinzler]

Eien Dynamischer Array ist schon ein Zeiger

[hboy]

richtig, die zusätzliche Umschreibung war unnötig, aber auch mit dem direkten Zuweisen einer Zelle von einem nicht initialisierten array gibt es unmittelbar eine Zugriffsverletzung, da das Array dann bei Adresse 0x00000000 beginnt. Ebensogut könnte man TTestArray(nil) zuweisen, doch dann kommt der range check error - das ist, was mich stört.