Programmcode von Snake in Delphi

[Apona]

leider ging das andere mit der anderen Deklaration nicht

[Jakob Ullmann]

Wo hast du eigentlich den Quelltext her? Und heißt deine Form (Form.Name ) wirklich Spielfeld, bzw. ist sie (bei var) noch als TForm1 oder als TSpielfeld deklariert? Das war nämlich das erste, was mir aufgefallen ist.

Und zur Klassendeklaration: Versuch's mal mit:

Delphi-Quellcode:

tsnake = class
  public
    x,y:array[1..100] of integer;
    vx,vy,r,laenge:integer;
    farbe:tcolor;
    ...

tapfel = class
  public
    x,y,r,score:integer;
    farbe:tcolor;

statt

Delphi-Quellcode:

tsnake = class
  x,y:array[1..100] of integer;
  vx,vy,r,laenge:integer;
  farbe:tcolor;
...

tapfel = class
  x,y,r,score:integer;
  farbe:tcolor;

[Mithrandir]

Zitat von Jakob Ullmann:

Wo hast du eigentlich den Quelltext her?

Nach nichtmal 5 Minuten Google: http://www.easy-coding.de/delphi-snake-t910.html

Der TE hat vermutlich einfach den erstbesten Code genommen und hier reinkopiert. Ziemlich dreist. So kann man jedenfalls keine Programme schreiben, auf die man stolz sein könnte.

//Edit: Wenn du ein ernsthaftes Interesse daran hast, dann hat Pr0g hier in der DP auch ein Tutorial veröffentlicht: http://www.delphipraxis.net/internal...ct.php?t=26245

Und ja, es ist keine große Kunst, ohne vorheriges probieren und verstehen den Code herunterzuladen. Also denke gar nicht erst dran.

[Apona]

Ich habe aber in dem vorherigen Thread geschrieben das ich nicht viel Ahnung von Delphi habe. Habe auch geschrieben das ich den Code per google gefunden habe. Das mit dem Tutorial habe ich mir auch schon durch gelesen.


Naja habe das Programm zwar zum Laufen bekommen aber es ist nicht das wahre. Habe nun einen anderen Code. Das Programm ist soweit auch funktionsfähig. Leider klapt die Steuerung noch nicht so recht.

[mimi]

Mal ein Vorschlag für die Objekt Struktur:

Delphi-Quellcode:

TBaseObj = class
x,y:Integer
bmp:TBitmap // Ich weiß nicht wo mit du dein Snkae machst, mit Canvas ? mit openGL ?
....

TSnake = class(TbaseObj)
.....

TTafel = class(TBaseObj)
....

achja: Die Schlange sollte in einer Liste verwaltet werde. und in zwei Objekte geliert werden:
den Kopf und den Körper.

So würde das schon mehr nach dem OOP Prinzip gehen. Was für Probleme hast du denn mit der Steuerung ?