die aufzurufende funktion wurde vom linker entfernt

[EWeiss]

Danke werde es gleich mal testen.

gruss

[EWeiss]

Hmmm...
Bei

gS[ID_BLUEFLARE].Bitmap := also Index -4 kracht es beim einlesen der Bitmap.

Delphi-Quellcode:

procedure TSprite.SetBitmap(const Value: HBitmap);
begin

  FBitmap := Value;
end;

Es sind alle Arrays mit TSprite.Create zugewiesen.
Das HBitmap handle was übergeben werden soll ist auch korrekt.
getData ist wieder nicht zugewiesen.

gruss

[Olli73]

Was gibst du denn beim Create für einen Wert für aLength an?

[EWeiss]

Zitat von Olli73:

Was gibst du denn beim Create für einen Wert für aLength an?

Delphi-Quellcode:

constructor TNegativeArray.Create(aLenght: Integer);
var
  i: Integer;
begin

  MaxValue := IIF(aLenght > 6, aLenght, 0);
  SetLength(FData, aLenght);

  for I := 0 to aLenght do
    FData[i] := TSprite.Create;
end;

gs := TNegativeArray.Create(6);

gruss

[Olli73]

6 ist auch zu wenig => n*2+1
Da du scheinbar mit 5 anfängst also 11.

[EWeiss]

Zitat von Olli73:

6 ist auch zu wenig => n*2+1
Da du scheinbar mit 5 anfängst also 11.

Dann habe ich aber 11 Arrays wo von nur 5 verwendet werden.. Hmmm
-5 > 0 = 6 Einträge

gruss

[Olli73]

Zitat von EWeiss:

Dann habe ich aber 11 Arrays wo von nur 5 verwendet werden.. Hmmm
-5 > 0 = 6 Einträge

Das Array läuft immer von -n bis +n, also von -5 bis +5

[Olli73]

oder so:

Delphi-Quellcode:

constructor TNegativeArray.Create(aLenght: Integer);
var
  i: Integer;
begin

  MaxValue := IIF(aLenght > 6, aLenght, 0);

  SetLength(FData, aLenght*2+1);

  for I := 0 to (aLenght*2) do
    FData[i] := TSprite.Create;
end;

[himitsu]

Delphi-Quellcode:

function TNegativeArray.getData(index: Integer): TSprite;
begin
  result := fData[index + offset];

offset=100 für bis zu -100 bis +x



Bezüglich dem abs(index)*2+1 und so.

[Olli73]

Zitat von himitsu:

Delphi-Quellcode:

function TNegativeArray.getData(index: Integer): TSprite;
begin
  result := fData[index + offset];

offset=100 für bis zu -100 bis +x



Bezüglich dem abs(index)*2+1 und so.

Davon (abs(index)*2+1) sind wir schon lange weg. Und Offset ist bei ihm fix/immer 5.