Array und negativ werte.

[hanvas]

Zitat von EWeiss:

Irgendwie will es nicht so recht.

Delphi-Quellcode:

procedure MoveIcon(Offset: integer);
var
  K: integer;
begin
  for K := -1 downto LBOUND do
    sp[K].x := sp[K].x + Offset;

end;

Der linken Seite kann nichts zugewiesen werden.

wenn ich das property so auslege.
Data[index: Integer]: TSprite read getData write setData; default; gruss

Mach aus TSprite eine Klasse anstelle eines Records dann gehts.

cu Ha-Jö

[EWeiss]

Zitat:

Nein ist es nicht. Das

Deshalb hatte ich es aus kommentiert da ich selbst darauf gekommen bin

Zitat:

Mach aus TSprite eine Klasse anstelle eines Records dann gehts.

Ok werde es testen

gruss

[EWeiss]

Leider habe ich immer noch ein paar Probleme.

Ich habe die MaxValue definiert.

Delphi-Quellcode:

constructor TNegativeArray.Create(aLenght: Integer);
begin

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

Die MaxValue überschreitet 0 nur dann wenn aLenght > 6 ist.
Also 0, -1, -2, -3, -4, -5 (MaxValue = 0) bei aLenght 7 = MaxValue = 1 usw..

Das zusätzliche Problem was ich noch habe wie soll ich die neue länge von Fdata zuweisen ohne das mein Sprite Array von -5 > 0 gelöscht wird.
Normal habe ich es vorher mit SetLength zugewiesen.

Wenn ich also ein Icon auf dem Desktop finde muss ich das Array erhöhen können.

Delphi-Quellcode:

    if CreateBarIcon(sIconSearch, nFound) then
    begin
      inc(nCount);
      Setlength(gS, nCount); // funktioniert nicht mehr.

Nochmal um das klar zu stellen ich verwende die Negativen werte ausschließlich für das Window
alles was darüber geht ist für die Icons zuständig.

Boahh...

Zitat:

TNegativeArray.getData wurde vom Linker entfernt.

Warum?


gruss