Registriert seit: 25. Apr 2008
Ort: Neunkirchen
755 Beiträge
|
AW: die aufzurufende funktion wurde vom linker entfernt
2. Mai 2017, 00:15
Delphi-Quellcode:
TNegativeArray = class(TObject)
...
public
...
procedure SetLen(n: Integer);
property Data[index: Integer]: TSprite read getData write setData; default;
property MaxValue: Integer read GetMaxValue write SetMaxValue;
end;
procedure TNegativeArray.SetLen(n: Integer);
begin
SetLength(fData, n*2+1);
end;
Dann kannst du dein Array mit gs.SetLen(n) dimensionieren.
|