Problem mit dynamischer Array und eaccessviolation

[fox67]

Hallo ich bin gerade dabei ein Spiel zu Programmieren das ich auf meinem Tascenrechner endeckt habe namens Aspirin.Ziel in dem Spiel ist es so viele Diamanten wie möglich einzusammeln ohne von den Laserstrahlen getroffen zu werden(eigentlich sind es Kugeln ). Ich habe das ganze jetzt mit zwei dynamischen Arrays versucht zu lösen allerdings sind dann die ganze Zeit diese dämlichen eaccessviolation Meldungen gekommen. Ich hab dann bekonnen alle möglichen Kontrellstrukturen zu lösen hatt auch geklappt es kommt keine Meldung mehr allerdingsbewgt sich ausser der Spielfigur nichts.
Hier sind die Kompletten Programm Datein http://dl.dropbox.com/u/62039624/Aspirin.zip

Zur erklärung : mit Space ist die Pause Taste und die message die kommt enthält Zahlen die ich zum analysieren des Fehlers programmiert hab

[CarlAshnikov]

Da ich lieder keine Zeit mehr für Erklärungen habe hier mal nur der Quelltext:
Damit konnte ich zumindest 2 Diamanten einsammeln

Delphi-Quellcode:

procedure TForm1.EngineTimer(Sender: TObject);
var
  Index: word;
begin
  if not Spiel.rPause then
    form1.Caption := 'Aspirin' + ' ' + 'Punkte: ' + inttostr(Spiel.rPunkte);
  if Spiel.rPause then
    form1.Caption := 'Aspirin' + ' ' + 'Pause';
  if Spiel.rPunkte > 0 then
  begin
    if t1 = 1 then
    begin
      //showmessage('Jetzt')  ;
      for index := 0 to Spiel.anzahl-1 do  //<----- hier lag der Fehler
      begin
        label1.Caption := inttostr(Spiel.anzahl);
        Spiel.shpos[index].Bewegung();
        //Spiel.sh[index].Top := Spiel.shpos[index].rpunkt.Y;
      //  sh2[index].Bewegung;

      end;
    end;
  end;
end;

[fox67]

Ja aber bewegen tut sich immer noch nichts auser der Spielfigur. Bei der Zeile 179 hab ich vergessen die zwei Schrägstriche rauszumachen die gehören raus.

[fox67]

Problem gelöst. neues Problem erstanden.

Code:

  case rRichtung of
 1:
  begin
    rpunkt.X:= rpunkt.X +3;
    [B]if rpunkt.Y > form1.Width-33 then rRichtung := 2;[/B]
    form1.Label1.Caption := inttostr(rRichtung);

   // Sleep(25);
  end;
 2: begin
    rpunkt.X:= rpunkt.X -3;

    if rpunkt.X < 0 then rRichtung := 1;
   // Sleep(25);
  end;
  end;
  end;

end;

Was ist an diesem Code falsch? Warum tut er nicht das was er soll.(bezieht sich nur auf das dicke) Normalerweise sollte doch die Richtung auf 2 umschalten sobald rpunkt.y größer als form1.width-33 ist warum tut es das nicht ?

[Bummi]

weil Du auf Y prüfst ?

[fox67]

4 augen sehen eindeutig mehr als 2 Vielen dank jetzt hab ich den ganzen abend rumprobiert und auf so was banales bin ich nicht gekommen. Das hatt man von der angeblichen Arbeitserleichterung namens copy+paste

[Sir Rufo]

Du solltest auf Zugriffe wie form1 verzichten.
Innerhalb der Form-Methoden kannst du die Eigenschaften direkt ansprechen Width oder auch mit Self.Width . Denn ein Umbenennen der Form (z.B. in etwas Sinnvolles wie FSpiel ) haut dir den Code auseinander, genauso, wenn du eine weitere Instanz der Form erzeugst.

In deiner Anwendung hast du diese Routine innerhalb von TPunkt . Dort hast du ein Feld Fenster , welches wohl auf die Form verweisen soll, dann benutze das Feld doch auch

Weiterhin fällt mir auf, dass du mit Width - 33 arbeitest ... möchtest du den Rand des Fensters berücksichtigen?
Entweder fragst du die Form und das System, wie breit der Rand denn wirklich ist, oder (viel einfacher) du nimmst ClientWidth , das ist exakt die innere Breite ohne Rand - analog gibt es dazu natürlich auch ClientHeight

Delphi-Quellcode:

case rRichtung of
 1:
  begin
    rpunkt.X:= rpunkt.X +3;
    
    if rpunkt.Y > Fenster.ClientWidth 
    then 
      rRichtung := 2;

  end;
 2: 
  begin
    rpunkt.X:= rpunkt.X -3;

    if rpunkt.X < 0 then rRichtung := 1;
   // Sleep(25);
  end;
end;

Fenster.Label1.Caption := inttostr( rRichtung );

// Sleep(25);

und den gesamten Code bekommt man auch noch kürzer:

Delphi-Quellcode:

// rRichtung ist entweder 1 oder -1
rPunkt.X := rPunkt.X + rRichtung * 3;

if ( rPunkt.X < 0 ) or ( rPunkt.X > Fenster.ClientWidth ) then
  rRichtung := - rRichtung;

Fenster.Label1.Caption := inttostr( rRichtung );

// Sleep(25);

[himitsu]

Und das du unbedingt noch machen solltest, wenn du eigenartige Reaktionen bekommst, beim Zugriff auf ein Array:

Die Bereichsprüfung in deinen Projektoptionen aktivieren
oder http://docwiki.embarcadero.com/RADSt...erpr%C3%BCfung