Mảng (con trỏ tới bản ghi)

Question

Tôi muốn tạo một nhóm bản ghi (RWell) và lưu trữ chúng trong một mảng theo một thứ tự nhất định. Sau đó, tôi muốn tạo một mảng mới (bố cục khác nhau) và sắp xếp lại các bản ghi trong đó. Tất nhiên, tôi không muốn sao chép dữ liệu trong RAM vì vậy tôi mặc dù trong mảng thứ hai tôi nên đặt con trỏ đến các bản ghi trong mảng đầu tiên. Tuy nhiên, tôi không thể làm điều đó. Bất kỳ ai cũng có thể cho biết có gì sai với mã bên dưới? Cảm ơn

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; 

---

giải quyết bằng cách Rob K.

Answer 1

Trong chức năng AddWell của bạn, bạn đang đi qua kỷ lục bởi giá trị. Điều đó có nghĩa là hàm nhận được bản sao của thông số thực tế. Bạn đang lưu trữ một con trỏ đến tham số chính thức, có lẽ chỉ là một vị trí trên ngăn xếp cục bộ của hàm.

Nếu bạn muốn có một con trỏ đến một cái giếng, sau đó vượt qua một con trỏ đến một cái giếng:

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

lựa chọn khác là để vượt qua kỷ lục của giá trị const. Đối với các bản ghi, điều này có nghĩa là tham số thực tế được chuyển như một tham chiếu. Một con trỏ đến tham số chính thức cũng là một con trỏ đến tham số thực tế:

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

Tôi sẽ không thực sự dựa vào điều đó. Khi bạn muốn con trỏ, hãy chuyển con trỏ. Một số người cố gắng tránh các con trỏ trong mã của họ, nhưng họ không có gì phải sợ.