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;