Snake Spiel

[DeddyH]

Achso, siehe Beitrag 13.

[Cueppi]

jetzt meckert das Programm:

Nicht deklarierter Begriff in zeile 237 - 257

[haentschman]

du mußt natürlich die procedure noch unter private deklarieren...

Delphi-Quellcode:

private
    { Private-Deklarationen }
    map: Array [0..BSB] of Array [0..HSB] of Integer;
    kopf,
    richtung,
    fressen: TPoint;
    LaengeSnake: Integer;
    PunkteZaehler: Integer;
    ende: Boolean;


    procedure AktiviereButtons(status: Boolean);
    procedure FarbeSpielfeld;
    procedure BewegungSchlange;
    procedure NeuesFressen;
    procedure SpielEnde;
    procedure Initialisierung;

  public

[DeddyH]

Stimmt, das muss auch eine Methode sein. Schreib also mal procedure Initialisierung; in den private-Abschnitt des Formulars und im implementation-Teil dann

Delphi-Quellcode:

procedure TForm1.Initialisierung;
begin
  //hier der Code
end;

[Cueppi]

es läuft alles wie gewünscht!
super danke
aber noch zwei fragen:

wie würdet ihr das denn "aufräumen" also, weil eben ja gesagt wurde, das ich sehr kreativ programmiert hab

und, ich möchte die schlange mit den Pfeiltasten & "W,A,S,D" steuern können, was muss ich dafür programmieren ??

[Cueppi]

die fertige Datei

[haentschman]

gaaaanz laaaangsam...

Fang einfach mal damit an, den Quellcode vernünftig einzurücken und vor allem keine 2 Anweisungen in die gleiche Zeile.

[Cueppi]

so mal etwas aufgeräumt

ich hab das in der mainform auf true gesetzt, nur die frage ist, wie die procedure heißt und geschrieben wird :O

ich kenn mich damit garnicht aus
wie ihr merkt ich bin relativ neu in delphi

[DeddyH]

Setz die KeyPreview-Eigenschaft des Forms auf true, dann kannst Du im OnKeyPress die entsprechende Taste abfragen und darauf reagieren. Und zur Formatierung: irgendwo hier im Forum ist der Styleguide verlinkt, an den sollte man sich weitestgehend halten.

[edit] Link gefunden: http://edn.embarcadero.com/article/10280 [/edit]