Ich hab' keine Ahnung was hier nicht stimmt:
Das Programm lädt eine Karte aus einer Bitmap. Jeder Pixel soll je nach Farbe einer Mauer, einem Punkt oder nichts entsprechen. Die Werte werden dann in ein Array gespeichert.


In der Draw-Prozedur dann:


Beim ausführen des Programms kommt dann In der Zeile if Feld[i,j] = Mauer then ein EAccessViolation.
Seht ihr an was das liegt?

Hi,

ein Array geht normalerweis von 0..(Anzahl - 1) und nicht von 1 bis Anzahl. Wenn Du mit Feld[Anzahl] darauf zugreifst, erzeugst Du ein illegalen Zugriff.

KidPaddle

_________________
http://www.seban.de

Deshalb habe ich setlength(feld,breite+1,hoehe+1); geschrieben, dann kann ich bei 1 anfangen.
Das ist nicht das Problem...

Hi,

ich habe jetzt den Code Delphi 5 reinkopiert und es kommt bei mir zu keiner Exception. Welche Delphiversion verwendest Du?

KidPaddle

_________________
http://www.seban.de

Auch 5 (Standard)

Hi Mari,

schalte mal spasshalber die Optimization aus, und mache dann einen Build.

Gruß

Hab's ausprobiert, bringt nichts

Ich geh mal davon aus, das deine Schleifen irgendwo die Grenzen des Arrays überschreitet.Aktivier mal bei den Compileroptionen die Bereichs- und Überlaufsprüfung ein.Dann sollte aus der kryptischen EAccessViolation eine Fehlermeldung kommen, in der dir mitgeteilt wird das die Grenzen des Arrays verletzt wurden.

Dann wird dein Programm ja angehalten, und du kannst dir ganze bequem die in i bzw. j und Feld[] enthaltenen Werte ansehen.Das sollte die Fehlersuche erleichtern.Wenn die Meldung nämlich am Ende der Schleifendurchgänge kommt (i=breite bzw. j=hoehe, oder beides=Maximalwert), dann hast du dein dynamisches Array nicht richtig dimensioniert. (Probier mal bei Setlength statt breite+1/hoehe+1 breite+2/hoehe+2)

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Es muss irgendwie an dem dynamischen Array liegen.
Wenn ich ein statisches zweidimensionales Array mit [100,100] nehme dann geht es, wenn ich aber beim dynamischen Array über setlength 100,100 einstelle dann geht es nicht (???)!

Mari ist Array mit [100,100] = [0..100,0..100] - das wäre was anderes als SetLength(100,100), das wäre SerLength(100+1, 100+1), wobei mir der Setlength mit den 2 parametern als solcher unbekannt ist.... bei delphi5 gabs ihn jedenfalls nicht

Dann probier mal folgendes :
<!--pas--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><!--pas1--><pre>
<span class='reserved'>for</span> i := <span class='integer'>1</span> <span class='reserved'>to</span> breite <span class='reserved'>do</span>
<span class='reserved'>begin</span>
SetLength(Feld, Length(Feld)+<span class='integer'>1</span>);
<span class='reserved'>for</span> j := <span class='integer'>1</span> <span class='reserved'>to</span> hoehe <span class='reserved'>do</span>
<span class='reserved'>begin</span>
SetLength(Feld[i], Length(Feld[i])+<span class='integer'>1</span>);
<span class='reserved'>if</span> bmp.canvas.pixels[i-<span class='integer'>1</span>,j-<span class='integer'>1</span>] = clblack <span class='reserved'>then</span>
feld[i,j] := mauer
<span class='reserved'>else</span>
<span class='reserved'>if</span> bmp.canvas.pixels[i-<span class='integer'>1</span>,j-<span class='integer'>1</span>] = cllime <span class='reserved'>then</span>
feld[i,j] := punkt
<span class='reserved'>else</span>
feld[i,j] := leer;
<span class='reserved'>end</span>;
<span class='reserved'>end</span>;
</pre><!--pas2--></td></tr></table><span class='postcolor'><!--pas3-->

Damit wird dein dynamisches Array auch dynamisch in der Schleife vergrößert...das sollte eigentlich zu 100% funzen.Darüber bin ich mir bei SetLength(Feld, 100, 100) nämlich nicht ganz sicher.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

-Beitrag gelöscht-

-Beitrag gelöscht-

-Beitrag gelöscht-

Hat's schon jemand bei sich versucht?
Wenn ja, ist es gegangen oder nicht?