die aufzurufende funktion wurde vom linker entfernt

[EWeiss]

Zitat von Olli73:

So funktioniert es:
Anhang 47237

Edit: Und wenn du bei der Deklaration von getData und setData das "inline" rausnimmst, kannst du die Methoden auch debuggen.

Sorry Olli hatte jetzt erst die Möglichkeit es zu testen.
Wenn es das richtig Archiv ist das du hochgeladen hast dann funktioniert es immer noch nicht

sobald ich auf den Check Valid Button klicke kracht es.

gruss

[Olli73]

War wohl die alte Version. Hier das aktuelle:

[EWeiss]

Zitat von Olli73:

War wohl die alte Version. Hier das aktuelle:

Perfekt
Danke noch mal.

gruss

[EWeiss]

Habe es noch etwas abgeändert damit die Classe flexibel bleibt.

snipp im nächsten Beitrag.

gruss

[Ghostwalker]

Hier mal meine korregierte Variante mit Kommentaren

Schaus dir einfach mal an.

Kleiner Tip am Rande: In einer Debug-Konfiguration immer die Compileroptimierung abschalten

[EWeiss]

Zitat von Ghostwalker:

Hier mal meine korregierte Variante mit Kommentaren

Schaus dir einfach mal an.

Kleiner Tip am Rande: In einer Debug-Konfiguration immer die Compileroptimierung abschalten

Auf jeden Fall werde ich mir Anschauen..
Danke.

gruss

[EWeiss]

Noch ein paar kleine Änderungen damit die Classe flexibel bleibt.

Rückgabe NIL addiert falls was schief läuft.

Delphi-Quellcode:

function TNegativeArray.getData(index: Integer): TSprite;
var
 idx : Integer;
begin
  result := nil;

  if ((index <= 0) or ((index > 0) and (Length(Fdata) > FMaxDefault ))) then
  begin
    idx := self.MappIndex(index);
    result := fdata[idx];
  end;
end;

create verändert keine festen werte mehr zuweisen.

Delphi-Quellcode:

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

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

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

Der Rest im Anhang.

gruss

[EWeiss]

Noch eine Änderung.

Delphi-Quellcode:

procedure TNegativeArray.SetLen(Len: Integer);
var
  oldidx,i : Integer;

begin
  if ((Len + FMaxDefault) > Length(Fdata)) then
  begin
    //alte Länge = 1. neuer Index nach der vergrößerung
    oldidx := Length(Fdata);
    //Neue Länge  (len = 1 entspricht neue größe 7 elemente also -5 bis 1
    SetLength(fData, Len + FMaxDefault);

    for i := oldidx to Length(Fdata)-1 do
    begin
      fdata[i] := TSprite.Create;
      MaxValue := IIF(i > (FMaxDefault - 1), (i - (FMaxDefault - 1)), 0);
    end;
  end;
end;

MaxValue muss hier aktualisiert werden.
Das ist deshalb wichtig weil alle Bitmaps > 0 (Icons) vorher gelöscht werden müssen.

Delphi-Quellcode:

  if gS.MaxValue > 0 then
  begin
    for K := 1 to gS.MaxValue do
    begin
      if gS[K].Bitmap <> 0 then
      begin
        DeleteObject(gS[K].Bitmap);
        gS[K].Bitmap := 0;
      end;
    end;
  end;

gruss