Aufruf einer Prozedur aus zwei verschiedenen Units liefert SIGSEGV Error.

[Basetyp]

Guten Abend Delphi-praxis.

Ich habe ein Problem, dass ich eine Prozedur mit absolut den selben Parametern aus zwei verschiedenen Units heraus aufrufen will.

Prozedur:

Delphi-Quellcode:

procedure DrawPlayer(var Source: TImage; Source_states: Array_TBitmap; Position: TPoint; State: Integer);
begin
  Source.Left:= Position.x;
  Source.Top := Position.y;
  Source.Width := Player_states[State].Width;  // Zeigt auf diese Zeile wenn SIGSEGV Error 
  Source.Height := Source_states[State].Height;
  Source.Picture.Bitmap := Source_states[State];
  Source.BringToFront;
end;

Aufruf in dieser Unit:

Delphi-Quellcode:

DrawPlayer(MAPTEST_form.Player_Image, Player_states, Point(10,230), 0);

Aufruf in der zweiten Unit:

Delphi-Quellcode:

DrawPlayer(MAPTEST_form.Player_Image, Player_states, Point(10,230), 0);

Fällt der Aufruf in der zweiten Unit weg, läuft das Programm einwandfrei.
Ist er allerdings vorhanden, startet das Programm, liefert aber sobald die Prozedur aufgerufen wird einen SIGSEGV-Error und zeigt auf die gegebene Zeile.

Was ich jetzt nicht verstehe ist, dass Parameter "State" in beiden Aufrufen mit der gleichen Zahl (0) deklariert wird, aber nur der Aufruf aus der zweiten Unit einen Fehler bringt. Source_states / Player_states haben definitiv den Index 0.

[Bummi]

nachdem MAPTEST_form.Player_Image , da zwei mal gleich ausscheiden sollte, würde ich vermuten, dass das beim zweiten Aufruf übergebene Player_states leer ist.