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:
DrawPlayer(MAPTEST_form.Player_Image, Player_states, Point(10,230), 0);
Aufruf in der zweiten
Unit:
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.