Wie sieht denn jetzt dein Funktion gS.SetLen() aus?
Delphi-Quellcode:
TNegativeArray = class(TObject)
private
Fdata : array of TSprite;
FMaxValue: Integer;
function getData(index : Integer) : TSprite; inline;
procedure setData(index : Integer; aData : TSprite); inline;
function GetMaxValue: Integer;
procedure SetMaxValue(const Value: Integer);
public
Constructor Create(aLenght : Integer);
Destructor Destroy; override;
procedure SetLen(Len: Integer);
property Data[Index: Integer]: TSprite read getData write setData; default;
property MaxValue: Integer read GetMaxValue write SetMaxValue;
end;
Delphi-Quellcode:
procedure TNegativeArray.SetLen(Len: Integer);
begin
SetLength(fData, Len * 2 + 1);
end;
Scheint jetzt wohl falsch zu sein.
gruss