Delphi-Quellcode:
function TNegativeArray.getData(index: Integer): TSprite;
begin
if Index < 0 then
result := fData[abs(index + 1) * 2 + 1]
else
result := fData[index * 2];
fData[abs(index)]; //[DCC Fehler] uSprite.pas(297): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'TSprite' gefunden
end;
Zusätzlich habe ich immer noch das Problem bei der Redimensionierung.
Delphi-Quellcode:
if CreateBarIcon(sIconSearch, nFound) then
begin
inc(nCount);
//Setlength(gS, nCount);
Irgendwie ein Anfang ohne Ende
Denke mal
Zitat:
fData[abs(index)];
wird nicht mehr benötigt.
gruss