Ich bin grade dabei ein kleines Spiel zu Programmieren. In diesem Spiel verwende ich die Klasse TRobot die ich von TDatabase ableitete. Um eine limitierte Zahl von Robotern im Spiel gleichzeitig verwenden zu können erstellte ich einen Array für die Roboter:
Delphi-Quellcode:
...
var
Roboter: Array[1..10] of TRobot;
...
In FormCreate wurden die Roboter, die ich bis dahin brauchte, dann erstellt:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
...
Roboter[1]:=TRobot.Create(self);
Roboter[2]:=TRobot.Create(self);
Roboter[1].Initialisieren(10,10,0,2);
Roboter[2].Initialisieren(400,200,Pi,2);
...
end;
Die Syntax von TRobot.Initialisieren ist (PositionX, PositionY, Startwinkel, Geschwindigkeit) .
Nun zu meinem Problem:
obwohl ich zwei unterschiedliche Objekte anspreche (Roboter[1] & Roboter[2]) überschreibt
Roboter[2].Initialisieren(400,200,Pi,2);
die bereits festgelegten Variablen von Roboter[1].
Das hat zur Folge, das anstatt zwei Robotern auf dem Formular entweder nur eins oder zwei übereinandergelegte Roboter erscheinen (ich kann es nicht genau beurteilen).
Woran liegt das? Danke schon im Voraus!