pointeurs!

Bonjour à tous!

j'ai un tableau de pointeur "T" et et à un moment donné je dois supprimer certaine cases de ce tableau, je voudrais savoir si le fait de faire par exemple:

 Var
Point : ^integer;
T: Array of Point;
i:integer;
Begin
SetLength(T,25);
i:=5;
 T[i]:=T[i+1];
for j:=i+1 to (n-1) do
begin
T[j]:=T[j+1];
end;
 T[n]:=nil;       //tel que "n" est sensé etre l'indice de la dernière case
end;
est ce que le code précédent supprime réellement la case (5) et décale les autres ou bien ça ne marche pas lorsque il s'agit de pointeurs???

Et si ce n'est pas le cas alors comment faire pour supprimer une case de ce tableau de pointeurs???

MERCI d'avance!!!

Salut,

pour supprimer une valeur et décaler les autres dans un tableau il faut passer par Move !!!

 
@+
Cirec

---

Salut,

J'ai comme une sensation de déjà vu ->
http://www.delphifr.com/forum/sujet-POINTEURS_1323028.aspx
A non, c'était "Les pointeurs!" et pas "pointeurs!".

Mais c'était sur les tableaux de pointeurs quand même...

Le truc c'est que quand tu supprime ton pointeur (Le cinquième là, en l'écrasant par le sixième), c'est qu'il faut que tu conserves un moyen de suppression de la valeur pointée. Parce que si tu as fait genre un T[5]:= AllocMem, bin faut que tu puisses faire un FreeMem d'une manière ou d'une autre.

il te faut une methode POP/PUSH pour ton tableau :

type
  pPnt = ^Pnt;
  Pnt = integer;
  TArPPnt = array of  pPnt;

const
  SizeOfPnt = SizeOf(Pnt);


function PushPnt(const AValue : Pnt; var ATap : TArPPnt): integer;
var ptr : pPnt;
begin
  result := Length(ATap);
  SetLength(ATap, result+1);
  new(ptr);
  ptr^ := AValue;
  ATap[result] := ptr;
end;

function PopPnt(const Index: integer; var ATap: TArPnt): integer;
var ptr : pPnt;
begin
  result := High(ATap);
  ptr := ATap[Index];
  Dispose(ptr);
  if Index < result then
    CopyMemory(@ATap[Index], @ATap[Index+1], (result-Index+1)*SizeOfPnt);
  SetLength(ATAp, result);
end;


ou encore, deriver un objet TList avec le type pPnt a la place des declaration pointer.

---