Fehlermeldung bei "FormMouseDown"

[Vampyr09]

Guten Tage liebe DP´ler.

Ich bin gerade dabei, ein 4 gewinnt zu programmieren.
Nun bin ich auf eine Fehlermeldung getroffen, die in meinen Augen total fehl am Platze ist.

Denn ich wollte, um die einzelnen Felder anklicken zu können bei "FormMouseDown" einfach einstellen, dass sich die Farbe des Feldes verändert, wenn dort noch kein anderer Stein liegt.

Dafür hab ich dann folgende Procedure:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var l, r:integer;
begin
  l := x div 70;  //Breite der einzelnen Felder 70
  r := y div 60;  //Länge der einzelnen Felder 60

  Edit1.Text := IntToStr(r);  // Zum überprüfen ob die korrekten Feldvariablen gesetzt werden
  Edit2.Text := IntToStr(l);

  

  if Feld[r,l] = 0 then   //Wenn Feld leer dann
  begin
    Feld[r,l] := 1;       //Feld besetzt
    Form1.Canvas.Brush.Color := clred;  //Ändere Farbe
    Form1.Canvas.Ellipse(r*(form1.ClientWidth div 7),l*(form1.ClientHeight div 6),(r+1)*(form1.ClientWidth div 7)-5,(l+1)*(form1.ClientHeight div 6)-5);  //Zeichne die neue Ellipse
  end;
end;

Nach dem Ausführen meines Programmes bekomme ich allerdings folgende Fehlermeldung:

Zitat:

Im Projekt Project1.exe ist eine Excepion der Klasse EAccessViolation aufgetreten. Meldung:'Zugriffsverletzung bei Adresse 00447338 in Modul 'Project1.exe'. Lesen von Adresse 00000238'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Ich habe mir daraufhin gedacht, lasse ich doch einfach mal des "FormMouseDown" leer und habe immer mehr Befehle eingetragen.
Allerdings kam ich sobald ich auch nur etwas mit "Form1.Canvas.Brush.Color := clred;" oder anderer Canvas-Befehle eingetragen habe, kam mir dieselbe Fehlermeldung.

Woran liegt das? Weil es sollte ja möglich sein mit Canvas in einem "FormMouseDown" zu arbeiten oder?


Mit freundlichem Gruß und großem Dank schon im Vorraus

Vampyr09

[Fussball-Robby]

Ich kann mir höchstens vorstellen, das der Fehler beim Zugriff auf Feld[r,l] kommt. Hast du das Array initialisiert bzw. hat es die richtige Größe?

[Nuclear-Ping]

Delphi-Quellcode:

...
  if Feld[r,l] = 0 then   //Wenn Feld leer dann
  begin
    Feld[r,l] := 1;       //Feld besetzt

Irgendwo da liegt 100%ig der Hund begraben. Wie Robby schon sagte: Array prüfen. Entweder ist es nicht richtig initialisiert oder du überschreitest Grenzen.

[Vampyr09]

Genau das hatte ich mir auch gedacht.

Allerdings bekomme ich denselben Fehler, wenn ich alles rausstreiche außer "Form1.Canvas.Brush.Color := clred;"

Also quasi:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Form1.Canvas.Brush.Color := clred;
end;

Dort bekomme ich haargenau die selbe Fehlermeldung.

[Fussball-Robby]

Zitat von Vampyr09:

Nach dem Ausführen meines Programmes bekomme ich allerdings folgende Fehlermeldung:

Zitat:

Im Projekt Project1.exe ist eine Excepion der Klasse EAccessViolation aufgetreten. Meldung:'Zugriffsverletzung bei Adresse 00447338 in Modul 'Project1.exe'. Lesen von Adresse 00000238'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Wann kommt der Fehler denn nun? Wenn du auf die Form klickst oder beim Start? An der Codezeile mit Canvas.Brush.Color := ... kann es eigentlich nicht liegen. Übrigens: Lass das Form1 mal weg, da es eine Methode von Form1 ist, also so:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Canvas.Brush.Color := clRed;
end;

[Vampyr09]

Also, den Fehler bekomme ich, wenn ich auf die Form klicke.

Fakt ist, nachdem ich das "Form1." vor dem "Canvas.Brush.Color := ..." weggelöscht habe, ist mir kein Fehler aufgetreten.
Allerdings immernoch, wenn ich den gesamten Quelltext benutze.

Das kann allerdings nicht sein, denn ich überschreibe keine Grenze (ich habe mir ja extra 2 Edits angelegt, auf denen die Werte für r und l angezeigt werden) und dort überschreite ich nicht das Array.

[Fussball-Robby]

Dann setz mal Breakpoints auf die Zeilen im MouseDown (mit F5), damit du siehst, in welcher Zeile der Fehler auftritt.

Edit: Du solltest das Form1. in der ganzen Methode entfernen. Vielleicht klappt es dann.

[Vampyr09]

Ich glaub ich bin fündig geworden.

Nachdem ich auch vor dem ClientWidth und ClientHeight das "Form1." weggenommen habe, trat ein Fehler mehr auf.

Also:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var l, r:integer;
begin
  l := x div 70;  //Breite der einzelnen Felder 70
  r := y div 60;  //Länge der einzelnen Felder 60

  Edit1.Text := IntToStr(r);
  Edit2.Text := IntToStr(l);

  if Feld[r,l] = 0 then
  begin
    Feld[r,l] := 1;
    Canvas.Brush.Color := clred;
    Canvas.Ellipse(     r*(ClientWidth div 7)             ,
                        l*(ClientHeight div 6)            ,
                        (r+1)*(ClientWidth div 7)-5       ,
                        (l+1)*(ClientHeight div 6)-5);
  end;
end;

Der Quelltext funktioniert zwar noch nicht einwandtfrei - aber das restliche werde ich wohl durch Überlegungen und anderes lösen können.


Ich danke euch für eure Hilfe.

Auf Bald ^^

[Nuclear-Ping]

Du solltest auf jeden Fall prüfen, ob l und r innerhalb der Dimensionen des Arrays liegen!