Tablica (wskaźniki do rekordu)

Question

Chcę utworzyć grupę rekordów (RWell) i przechowywać je w tablicy w określonej kolejności. Następnie chcę utworzyć nową tablicę (inny układ) i zamienić w nią rekordy. Oczywiście nie chcę duplikować danych w pamięci RAM, więc w drugiej tablicy powinienem umieścić wskaźniki do rekordów w pierwszej tablicy. Jednak nie mogę tego zrobić. Ktoś może powiedzieć, co jest nie tak z poniższym kodem? Dzięki

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; 

---

rozwiązany przez Rob K.

Answer 1

W funkcji AddWell, jesteś przejazdem rekord wartością. Oznacza to, że funkcja otrzymuje kopię aktualnego parametru. Przechowujesz wskaźnik do formalnego parametru, który jest prawdopodobnie po prostu lokacją na lokalnym stosie funkcji.

Jeśli chcesz wskaźnik do studni, a następnie przekazać wskaźnik do studni:

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

Innym rozwiązaniem jest przekazanie rekordu przez wartości const. W przypadku rekordów oznacza to, że rzeczywisty parametr jest przekazywany jako odniesienie. Wskaźnik do formalnego parametru jest również wskaźnikiem do faktycznego parametru:

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

Nie chciałbym jednak na tym polegać. Kiedy chcesz wskaźników, podaj wskaźniki. Niektórzy próbują unikać wskazówek w swoim kodzie, ale nie mają się czego obawiać.