Matriz de (punteros a un registro)

Question

Quiero crear un grupo de registros (RWell) y almacenarlos en una matriz en un cierto orden. Entonces quiero crear una nueva matriz (diseño diferente) y reacomodar los registros en ella. Por supuesto, no quiero duplicar datos en la RAM, así que pensé que en la segunda matriz debería poner punteros a los registros en la primera matriz. Sin embargo, no puedo hacer eso. ¿Alguien puede decir lo que está mal con el código de abajo? Gracias

Type 
    RWell= record         
    x: string; 
    i: integer; 
    end; 

    PWell= ^RWell; 

    RWellArray= Array[0..12, 0..8] of RWell;  


procedure TClass1.CreateWells 
var 
    WellMX: RWellArray; 
begin 
    { should I initialize the WellXM here? } 
    { note: WellXM is a static array! } 

    other stuff 
end; 



var Wells: array of PWell; 
procedure TClass2.AddWell(aWell: RWell); 
begin 
aWell.Stuff:= stuff; {aWell cannot be readonly because I need to change it here} 

SetLength(Wells, Length(Wells)+ 1); { reserve memory } 
Wells[High(Wells)]:= @aWell; 
end; 



procedure TClass3.DisplayWell; 
var CurWell: RWell; 
begin 
CurWell:= CurPrimer.Wells[iCurWell]^;  <--- AV here (but in debugger the address is correct) 
end; 

---

resueltos por Rob K.

Answer 1

En su función AddWell, que están pasando por el registro valor. Eso significa que la función obtiene una copia del parámetro real. Está almacenando un puntero al parámetro formal, que probablemente sea solo una ubicación en la pila local de la función.

Si quieres un puntero a un pozo, a continuación, pasar un puntero a un pozo:

procedure AddWell(AWell: PWell); 
begin 
    SetLength(Wells, Length(Wells) + 1); 
    Wells[High(Wells)] := AWell; 
end; 

Otra opción es pasar por el registro valor const. Para los registros, esto significa que el parámetro real se pasa como referencia. Un puntero al parámetro formal es también un puntero al parámetro real:

procedure AddWell(const AWell: RWell); 
begin 
    SetLength(Wells, Length(Wells) + 1); 
    Wells[High(Wells)] := @AWell; 
end; 

yo no realmente confiar en eso, sin embargo. Cuando desee punteros, pase punteros. Algunas personas intentan evitar punteros en su código, pero no tienen nada de qué temer.