Einzelnen Beitrag anzeigen

CarlAshnikov

Registriert seit: 18. Feb 2011
Ort: Erfurt
65 Beiträge
 
Delphi XE5 Enterprise
 
#2

AW: Problem mit dynamischer Array und eaccessviolation

  Alt 5. Apr 2012, 11:26
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;
Sebastian
  Mit Zitat antworten Zitat