Programmcode von Snake in Delphi

[p80286]

nur mit den help-files.
aber da gibts eine Möglichkeit was nach zu installieren, such mal bei MS nach winhlp32.

Gruß K-H

[mr_emre_d]

Zitat von BullsEye:

Weil du Sie (die Variablen) doppelt verwendest!

Ähm... Ich verweise hiermit auf die Delphi-Grundlagen-Tutorials

EDIT:
http://www.delphi-treff.de/tutorials/grundlagen/

[Apona]

so habe das mit dem Overload; hinter der Deklaration mal gemacht bringt aber leider nichts.


Es kommt Folgende Fehlermeldung:

Expected ':' but ',' found

[fkerber]

Hi!

Verrätst du uns noch eine Zeilennummer oder noch besser nochmal kurz die Codestelle (nur die, wo es knallt)?


Ciao, Frederic

[Apona]

Also hier knallt es:

Delphi-Quellcode:

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

tapfel = class
  x,y,r,score:integer; auch hier hinter dem x,
  farbe:tcolor;

Danke schon mal für eure Hilfe

[hugo1990]

Es wäre vllt, mal ganz gut gewesen, wenn du die detailierte Fehlermeldung mit dazugeschrieben hättest, da ich dir auch gerne helfen würde, aber ich habe keine Lust mir das Projekt selber zusammen zu basteln, da du die Projektdateien an deinen Beitrag ja auch nicht angehangen hast.

[Apona]

die fehlermeldung steht doch oben drüber

[hugo1990]

Oh, sorry. Muss ich irgendwie überlesen haben.
Also ich habe mir jetzt die Klassen mal schnell in ein Projekt kopiert und dass kompiliert, aber bei mir tritt da kein Fehler auf. Ich habe aber auch nicht Delphi 7.
Du könntest ja mal folgendes versuchen:

Delphi-Quellcode:

tsnake = class
  x:array[1..100] of integer;
  y:array[1..100] of integer;
  vx,vy,r,laenge:integer;
  farbe:tcolor;
  richtung:trichtung;
  procedure init(fneu:tcolor; xneu, yneu, vxneu, vyneu, rneu:integer);
  procedure zeigedich;
  procedure bewegedich;
  procedure wachsen;
  end;

tapfel = class
  x:integer;
  y:integer;
  r:integer;
  score:integer;
  farbe:tcolor;
  procedure ini; overload;
  procedure ini(fneu:tcolor; xneu, yneu, rneu:integer); overload;
  procedure zeigediche;
  procedure fressen;
  end;

auch wenn ich kaum glaube das es daran liegt.

Edit:
Nur mal so nebenbei bemerkt, der jenige, der diesen Code geschrieben hat, hat nicht so wirklich Ahnung von OOP.

[mimi]

ich hatte mal vor einiger Zeit ein Tutorial für Snake geschrieben. Allerdings mit DelphiX Unterstützung. Aber ich denke als "Anhaltspunkt" zum reinschauen und anpassen sollte das doch ausreichen oder ?
http://www.delphi-library.de/viewtop...=10073&start=0

PS:
Ich habe das Tutorial hier nicht gefunden, kann sein das ich es hier nicht erstellt habe, aber wenn ihr wollt kann ich das noch nachholen. Ich habe auch noch erst letzten ein Snake mit Canvas mit Hilfe meiner 2D Engine und meinem "Game Pack" erstellt.

[Apona]

cool thx