Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Space Invaders in Delphi5 (https://www.delphipraxis.net/147401-space-invaders-delphi5.html)

Namenloser 14. Feb 2010 20:46

Re: Space Invaders in Delphi5
 
Zitat:

Zitat von N4r0
Das verstehe ich nicht ganz. Wo kommt das TBasis her? Die Klasse, welche du erstellt hast heißt doch TSprite, oder?

Copy-Paste-Fehler, sry. Sowas passiert halt, wenn man zu langen Code im Beitragseditor schreibt :mrgreen:

N4r0 14. Feb 2010 20:57

Re: Space Invaders in Delphi5
 
(nicht nachgedacht, bevor ich geschreiben habe)

bodenheim 14. Feb 2010 21:04

Re: Space Invaders in Delphi5
 
Entschuldigung, daß ich doof frage, aber arbeitet ihr in der Schule wirklich mit Delphi 5 (1999)? Das wäre ja eine Zumutung, habe mir neulich mal mein Delphi 4 angesehen, keine Ahnung wie ich damit Programme entwickeln konnte.
Die Schulen sollten etwas halbwegs Aktuelles nutzen.

N4r0 14. Feb 2010 21:23

Re: Space Invaders in Delphi5
 
Ja, das hab ich schon von vielen gehört, aber das liegt leider nicht an uns Schülern :/

Namenloser 14. Feb 2010 21:55

Re: Space Invaders in Delphi5
 
Zitat:

Zitat von bodenheim
Entschuldigung, daß ich doof frage, aber arbeitet ihr in der Schule wirklich mit Delphi 5 (1999)?

Das ist durchaus üblich. Wir haben in der Schule leider auch nur Delphi 6. Andererseits wäre eine moderne IDE auf den winzigen XGA-Displays auch kein Spaß...

N4r0 15. Feb 2010 21:46

Re: Space Invaders in Delphi5
 
Ich habe die Klassen mal nachgbaut und wollte nun die Prozeduren und Funktionen reinschreiben.
Nur leider blick ich jetzt nicht mehr wirklich durch.

Hiermit:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  i,j: integer;
begin
  FSprites := TObjectList.Create(True);
  for i := 0 to 8-1 do
    for j:= 0 to 3-1 do
      FSprites.Add(TInvader.Create(self, Point(i*30, j*20)));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i,j: integer;
begin
  for i := 0 to FSprites.Count-1 do
    TSprite(FSprites[i]).Move;
  ...
end;
werden die Sprite Images ja irgendwie wieder als eine Art Array betrachtet.

Kannst du mir das vielleicht nochmal erklären?

Namenloser 15. Feb 2010 21:49

Re: Space Invaders in Delphi5
 
Zitat:

Zitat von N4r0
werden die Sprite Images ja irgendwie wieder als eine Art Array betrachtet.

Kannst du mir das vielleicht nochmal erklären?

FSprites[i] ist einfach eine Kurzschreibweise für FSprites.Items[i]. Das funktioniert, weil die Array-Property "Items" in TObjectlist als "default;" deklariert ist. Wenn bei deinem Delphi die Source Codes mitgeliefert werden, kannst du dir die Deklaration ja mal anschauen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:18 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz