Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
27. Jun 2010
:gruebel: dann stellt sich mir dann doch die Frage wie du den Quelltext des Programmes hinbekommen hast. Denn dieser beinhaltet noch schwierigere "Teile"
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
27. Jun 2010
gaaaanz laaaangsam... :zwinker:
Fang einfach mal damit an, den Quellcode vernünftig einzurücken und vor allem keine 2 Anweisungen in die gleiche Zeile.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
27. Jun 2010
du mußt natürlich die procedure noch unter private deklarieren... :zwinker:
private
{ Private-Deklarationen }
map: Array of Array of Integer;
kopf,
richtung,
fressen: TPoint;
LaengeSnake: Integer;
PunkteZaehler: Integer;
ende: Boolean;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
27. Jun 2010
procedure TForm1.Initialisierung;
var
X, Y: Integer;
begin
BtnStart.Enabled := False;
PunkteZaehler:= 0;
for X:=0 to BSB do
for Y:=0 to HSB do
map := 0;
kopf := Point(1, 1);
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haentschman,
27. Jun 2010
der Sound wird abgespielt beim Start und beim Beenden, weil du in der BtnBeendenClick BtnStart.Click aufrufst. Ich gehe davon aus, daß du damit wieder neu initialisieren möchtest. Lagere die Initialisierung in eine eigene Prozedure aus und rufe diese explizit auf. Dann ist auch der Sound aus dem Beenden weg.
PS: ich glaube, daß in der
procedure TForm1.BtnBeendenClick(Sender: TObject);...