Ich habe dir doch nen Link zu nem Klassentutorial geschickt?! Warum hast du dir das Tutorial nicht angeschaut?
Dort wird genauestens erklärt, wie man eine Instanz erzeugt.
Du hast da ein Array mit 2 Elementen:
Delphi-Quellcode:
imgGegner[aVertikal]
imgGegner[aHorizontal]
Das sind Instanzen. Für die muss Speicher reserviert werden.
Übrigens sind das Variablen vom Typ TBitmap!
das Reservieren von Speicher für Instanzen geht so:
Instanzenname := TKlassenTyp.Create;
In deinem Fall - hättest du dir das Tutorial angesehen - müsstest du das so machen:
Delphi-Quellcode:
imgGegner[aVertikal] := TBitmap.Create;
imgGegner[aHorizontal] := TBitmap.Create;
Ich halte mich jz zurück denn du scheinst keine Eigeninitiative aufzuweisen.
Ach noch zu den Anderen - warum könnt ihr ihm das Problem nicht schildern und schreibt um den heißen Brei herum?
Ich habe nichts bekommen :O
Sieht inzwischen so aus:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
r: Trect;
imgGegner: Array[TAusrichtung] of TBitMap;
Gegner: Array[0..300-1] of TGegner;
begin
If Player.left+Player.width>=Form1.ClientWidth-2 Then Verlohren;
If Player.top+Player.height>=Form1.ClientHeight-2 Then Verlohren;
If Player.left-1<=1 Then Verlohren;
If Player.top-1<=1 Then Verlohren;
if intersectRect(r, Player.BoundsRect, Ziel.BoundsRect) then
begin
Score:=Score+1;
Ziel.Top:=10+Random(Form1.ClientHeight-10);
Ziel.left:=10+Random(Form1.ClientWidth-10);
imgGegner[aVertikal] := TBitmap.Create;
imgGegner[aHorizontal] := TBitmap.Create;
imgGegner[aVertikal].LoadFromFile('GegnerV.bmp');
imgGegner[aHorizontal].LoadFromFile('GegnerH.bmp');
Gegner[0].Position := Point(100, 20);
Gegner[0].Ausrichtung := aVertikal;
with Gegner[0] do
Canvas.Draw(Position.X, Position.Y, imgGegner[Ausrichtung]);
end;
end;
Wenn Player dann Ziel berührt, wird es zwar einmal richtig gemacht, aber wenn Player jetzt wieder
Ziel berührt wird wieder garnichts gemacht, zudem verschwindet dann die Zeichnung von Canvas wenn ich mich
mit
Player drüberbewege. Und wie bewege ich die Gegner dann ?