Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
Das scheint mir im Moment das Beste zu sein, schau Dir das morgen noch einmal in Ruhe an.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
Was ist daran so schwer? Zuerst die Position des Kopfes zufällig setzen und dann die Richtung. Anschließend kontrollieren, ob die Richtung überhaupt sinnvoll ist (If-Abfrage auf die jeweilige Koordinate), ggf. eine andere Richtung wählen und erneut prüfen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
Das ist nicht ganz so trivial. Wenn der Kopf zufällig irgendwo auf dem Spielfeld auftauchen darf, musst Du zunächst prüfen, ob sie in irgendeiner Richtung bereits so nah am Rand ist, dass ein Spiel gar nicht möglich ist und ggf. die Richtung korrigieren.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
Wenn Du wirklich so viel getüftelt hast, wirst Du Deinen eigenen Quelltext ja wohl am ehesten verstehen und wissen, was Du wieso gemacht hast. Für uns als Außenstehende ist das ungleich schwieriger.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
Klick auf das Form und setze im Objektinspektor KeyPreview auf true. Dann wechselst Du zu den Ereignissen und gehst zu "OnKeyPress". Im Code dazu könntest Du dann so etwas machen (ganz einfache Variante, schöner wären eigene Methoden):
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'a','A': BtnLinks.Click;
'd','D': BtnRechts.Click;
's','S':...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
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.
Link gefunden: http://edn.embarcadero.com/article/10280
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
Stimmt, das muss auch eine Methode sein. Schreib also mal procedure Initialisierung; in den private-Abschnitt des Formulars und im implementation-Teil dannprocedure TForm1.Initialisierung;
begin
//hier der Code
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
Was auslagern?
BTW: Deine Codeformatierung ist sagen wir mal "kreativ", da müsste etwas mehr Ordnung rein.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
Bei mir wird der Sound nur einmal abgespielt, wenn ich den Button betätige, also wie gewollt.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
:?: Häng doch mal die aktuelle *.pas an.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DeddyH,
27. Jun 2010
Wie ich schon sagte: nimm das PlaySound aus dem OnCreate raus und pack es ins OnClick des Startbuttons.