Zugriffsverletzung. was ist hier falsch?

[cello]

ich fange gerade an ein schachspiel zu programmieren und kriege eine Fehlermeldung die in der folgenden Prozedure liegen muss. habe ansonsten alles uberprüft nur hier komme ich nicht auf den fehler

Delphi-Quellcode:

procedure TForm2.init;
begin
 for x:=1 to 8 do
 begin
   for y:=1 to 8 do
   begin
     if (x+y) mod 2=0 then
     begin
       Bildzeigen('schwarzefleache', 'images/schwarz1.png', x,y)
     end
     else
         Bildzeigen('weißefleache', 'images/weiß1.png', x,y);
   end;
 end;
end;

schonmal danke für eine antwort:)

[vagtler]

Zitat:

Zitat von cello (Beitrag 1214856)

[...] kriege eine Fehlermeldung die in der folgenden Prozedure liegen muss. [...]

Das glaube ich nicht, Tim.

[grl]

Wo und wie ist x und y definiert?
Wo und wie ist Bildanzeigen definiert?

Was kommt genau für eine Fehlermeldung?

Hast du das schon mal mit dem Debugger step-by-step angeschaut? Wo kracht's?

Luggi

[cello]

Zitat:

Zitat von vagtler (Beitrag 1214857)

Zitat:

Zitat von cello (Beitrag 1214856)

[...] kriege eine Fehlermeldung die in der folgenden Prozedure liegen muss. [...]

Das glaube ich nicht, Tim.

Doch hab den rest überprüft da kann nichts falsch sein.

[grl]

Zitat:

Zitat von cello (Beitrag 1214867)

Zitat:

Zitat von vagtler (Beitrag 1214857)

Zitat:

Zitat von cello (Beitrag 1214856)

[...] kriege eine Fehlermeldung die in der folgenden Prozedure liegen muss. [...]

Das glaube ich nicht, Tim.

Doch hab den rest überprüft da kann nichts falsch sein.

Aha.
Was sich ohne den entsprechenden Sourcecode aber nicht prüfen lässt.

Und ich bin da auch der Meinung von vagtler: Der Fehler liegt nicht in dieser Funktion.

Luggi

[p80286]

So wie die Überschrift? :mrgreen:

Schon daß x und y ausserhalb der Prozedur definiert sind ist etwas suboptimal.

Gruß
K-H

[cello]

Zitat:

Zitat von grl (Beitrag 1214858)

Wo und wie ist x und y definiert?
Wo und wie ist Bildanzeigen definiert?

Was kommt genau für eine Fehlermeldung?

Hast du das schon mal mit dem Debugger step-by-step angeschaut? Wo kracht's?

Luggi

y und x sind als integer als globalen Variablen definiert. Bildanzeigen ist eine Procedure, die das laden, die Position etc zusammenfasst.

Delphi-Quellcode:

Procedure TForm2.Bildzeigen(Namebild:string;Bild:string; x3:integer; y3:integer);

begin
  feld[x3,y3].Name := Namebild;
  feld[x3,y3].Bild := Timage.create(Form2);
  feld[x3,y3].Bild.parent := Form2;
  feld[x3,y3].Bild.top := x3*40;
  feld[x3,y3].Bild.left := y3*40;
  feld[x3,y3].Bild.Picture.LoadFromFile(Bild);
  feld[x3,x3].Bild.visible:=true;
end;

als fehlermeldung kommt:Erste Gelegenheit für Exception bei $75BEC6E3. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 0043A173 in Modul 'Project2.exe'. Lesen von Adresse 00000057'. Prozess Project2.exe (5000)

danach wird erste end in der Procedure markiert

[Luckie]

Müsste da der Compiler nicht sogar eine Warnung ausgeben? Und die genaue Fehlermeldung wäre hilfreich. Meine Vermutung der Zähler stimmt nicht Kann es sein, dass die Schleife von 0 bis 7 laufen müsste?

[grl]

Ach bitte, lass dir doch nicht alles aus der Nase ziehen...

Da fehlt ja wieder die Hälfte. Ich tippe auf einen Fehler in der Array-Definition.

Poste den GANZEN Sourcecode, sonst macht das alles irgendwie keinen Sinn...

Luggi

[cello]

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,pngextra,pngimage,pnglang,zlibpas;

type
  TForm2 = class(TForm)
  procedure init;
  procedure Bildzeigen(Namebild:string; Bild:string; x3:integer; y3:integer);
  procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation
TYPE Tfeld =
 record
    Bild: TImage;
    Name: String;
 end;
 var feld: array [1..8,1..8] of Tfeld;
 var x,y : integer;
{$R *.dfm}
Procedure TForm2.Bildzeigen(Namebild:string;Bild:string; x3:integer; y3:integer);

begin
  feld[x3,y3].Name := Namebild;
  feld[x3,y3].Bild := Timage.create(Form2);
  feld[x3,y3].Bild.parent := Form2;
  feld[x3,y3].Bild.top := x3*40;
  feld[x3,y3].Bild.left := y3*40;
  feld[x3,y3].Bild.Picture.LoadFromFile(Bild);
  feld[x3,x3].Bild.visible:=true;
end;

procedure TForm2.init;
begin
 for x:=1 to 8 do
 begin
   for y:=1 to 8 do
   begin
     if (x+y) mod 2=0 then
     begin
       Bildzeigen('schwarzefleache', 'images/schwarz1.png', x,y)
     end
     else
         Bildzeigen('weißefleache', 'images/weiß1.png', x,y);
   end;
 end;
end;





procedure TForm2.FormCreate(Sender: TObject);
begin
 randomize;
 Form2.DoubleBuffered:=True;
 init;
end;

end.