Динамические массивы и указатели

[evg_m]

но при 3 проходе не находит (((( не могу понять почему

тоже не смог понять, но вот так работает

type
Tsp=record sp:integer; xx: Pointer; end;

function GetSp(var Psp_: Psp; SourceP: integer): Tsp;
var
  k: integer;
  i: integer;
begin
 k:=high(Psp_);
 result.xx:=nil;// Pointer(0);
 for i:=0 to k do begin
  if Psp_[i].xx=nil then begin
    Psp_[i].xx:=Pointer(1);
    Psp_[i].sp:=SourceP;
  end;
  if SourceP=Psp_[i].sp then begin
   result:=Psp_[i];
  end;
 end;
 if result.xx=nil then begin
   k:=high(Psp_);
   SetLength(Psp_,k+2);
   Psp_[k].sp:=SourceP;
   Psp_[k].xx:=Pointer(1);
   result:=Psp_[k]; //это эквивалентно двум след. строкам
   // result.sp:=Psp_[k].sp;
   // result.xx:=Psp_[k].xx;
  end;
end;

[sera.kerch]

Сообщение от evg_m

тоже не смог понять, но вот так работает

type
Tsp=record sp:integer; xx: Pointer; end;

function GetSp(var Psp_: Psp; SourceP: integer): Tsp;
..
end;

в общем Ваш подход не работает вообще ((((

построил типы

Tdp=record dp,size:integer; p: PN end;
Pdp = array of Tdp;
Tdip=record dip:integer; dp: Pdp; end;
Pdip = array of Tdip;
Tsp=record sp:integer; dip: Pdip; end;
Psp = array of Tsp;
Tsip=record sip:integer; sp: Psp; end;
Psip = array of Tsip;
Tp=record p:integer; sip: Psip; end;
Tpaket = array of TP;

написал им нужные функции
так вот при изменении в Tpaket все записывает как только изменяются Pdip или Psp или Psip все теряется и данные просто перезаписываются (((



может кто то подскажет как сделать в динамическом массиве ссылку на динамический массив в котором также есть ссылка на динамический массив