How can i Initial This Code?
type
PPNode = ^PNode;
PNode = ^Node;
CNode = array of PPNode;
Node = record
key: Integer;
next: PNode;
prev: PNode;
end;
i use this way :
function TForm1.chained_hash_init(n: Integer): CNode;
var
A: Cnode;
begin
...
SetLength(A, N);
Result := A;
...
end;
But I have Error in Memory For this access:
procedure TForm1.btn1Click(Sender: TObject);
var
pcnArr: CNode;
begin
SetLength(pcnArr, 19);
pcnArr := chained_hash_init(19);
ShowMessage( IntToStr(pcnArr[i]^^.key)) ); // I have Problem Here :(
end;
How Can I Initial Cnode ?