Hallo Delphi-PRAXIS,

Ich generiere mit folgendem Code Zufallsbuchstaben, die eigentlich mein Array(zweidimensional) füllen sollen, die ich danach ausgeben kann.

zusammenfalten · markieren

Delphi-Quellcode:

spalten : array [1..300] of integer;
zeilen : array [1..300] of integer;
...
for i := 0 to AnzahlSpalten do
    for n := 0 to AnzahlZeilen do
        begin
          Spaltenzaehler := i;
          Zeilenzaehler := n;
          randomize;
          RandomZeichen := random(26) + 65;
//*******************************************************************************************\\
          buchstabe[i,n].Zeichen := char(RandomZeichen); // Hier ist ein Fehler!
//*******************************************************************************************\\
          Schreibflaeche.Canvas.TextOut(spalten[Spaltenzaehler],zeilen[Zeilenzaehler],buchstabe[i,n].zeichen);
        end;

Ich bekomme jedesmal eine Zugriffsverletzung... kann mir jemand helfen den Fehler zu finden?

FG Dunkelbunt

Deine Arrays starten bei Index 1, deine Schleifen aber bei 0!

Edit: Die Deklaration des Buchstaben-Arrays fehlt allerdings in deinem Code-Ausschnitt. Geht dieses Array auch bei 1 an? Und für was sollen denn die beiden Arrays "spalten" und "zeilen" eigentlich gut sein?

Du fängst bei der Schleife bei 0 an zu zählen, dein Array beginnt aber erst bei 1

[edit]
zu langsam
[/edit]

markieren

Delphi-Quellcode:

type
TBuchstabe = record
              ...
             end;
var
  buchstabe : array of array of TBuchstabe;

Das mit der 1 statt Null bewirkt jetzt, dass die buchstaben eigentlich perfekt passen, trotzdem kommt bei der Zeile:

markieren

Code:

buchstabe[i,n].Zeichen := char(RandomZeichen);

eine Zugriffsverletzung im Modul ....

buchstabe : array of array of TBuchstabe; Setzt du denn auch irgendwo die Größe des Arrays per SetLength?

Ja, das funktioniert alles.

markieren

Code:

SetLength(buchstabe,Anzahlzeilen,Anzahlspalten);

Das Problem liegt laut Compiler bei der besagten Stelle.

Achtung: Wenn du die Größe eines dynamischen Arrays per SetLength auf einen Wert x setzt, dann ist der höchste Index high(array) = x-1 !
Das bedeutet, dass die Zugriffsverletzung wahrscheinlich "am Ende der Schleife" auftritt, weil du zu weit iterierst. Probier folgendes:

markieren

Delphi-Quellcode:

for i := 0 to AnzahlSpalten -1 do
    for n := 0 to AnzahlZeilen -1 do

Also bei 0 anfangen und bis Anzahl-1 durchgehen. Auch darauf achten, dass deine anderen Arrays groß genug sind. Vor allem sollten sie dann auch bei 0 anfangen