Speicher (schnell) reservieren für ListenElemente ?

[stoxx]

Hallo Himitsu,

das war zwar auch noch nicht, was ich wollte, aber der Blick auf Deinen Quelltext hat mich auf eine IDee gebracht.
Die meine Sache löst ! .. wow .. cool

ich kann dann einmal reservieren, entsprechend großen Platz, und kann dann jedem ListenElement den Zeiger zuordnen, und kann dann genauso wie auf ein normales Array zugreifen ! ..
Danke, war zwar nicht direkt die Lösung, aber ohne Dich wäre ich nicht drauf gekommen !
(hier der Code, wenn mein Array 5 Elemente haben soll und ich platz für 20 Array reservieren will.
muss dann nur noch sauber berechnet werden, aber ich brauch nur einmal den ArraySpeicher reservieren.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var a, p1, p2 : array of integer;
    i : integer;
begin
setlength(a,100);

for i := 0 to 99 do a[i] := i;

p1 := @a[0];
p2 := @a[4];
usw ...

showmessage( inttostr(p1[1]));
showmessage( inttostr(p2[1]));



end;