Ungewollter Zugriff auf in einem Array gespeichertes Objekt

[mkinzler]

Du verwendest für alle Insatnzen die selben globalen Variablen! Ich würde hierfür Member der Klasse verwenden

Delphi-Quellcode:

unit Robot;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables;

type
  TRobot = class(TDatabase)
  private
    { Private-Deklarationen }
    Position:Array[1..2] of integer;
    Winkel_1,Speed:double;
    Ziel: TRobot;
  protected
    { Protected-Deklarationen }
  public
  ...
  procedure Initialisieren(PosX, PosY: integer; StartWinkel, Geschwindigkeit: double);
  ...
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;


procedure Register;
    
implementation

...

procedure TRobot.Initialisieren (PosX, PosY: integer; StartWinkel, Geschwindigkeit: double);
begin
  Position[1]:=PosX;
  Position[2]:=PosY;
  Winkel_1:=StartWinkel;
  Speed:=Geschwindigkeit;
end;

...

end.