Использование record в record

[Anton911]

Есть вот такие две записи:

type pStep=^tStep;
  tStep=record
  StepNumber:integer;
  PlayerName:string;
  WhiteBlack:integer;
  CheckFrom,CheckIn:integer;
  StepPrev,StepNext:pStep;
  end;
  type pArena=^tArena;
  tArena=record
  Player_1,Player_2:string;
  MaxTimeToHod,Resultat,Table,StepCount:integer;
  DateStart,DateFinish:string;
  Steps:pStep;
  ArenaPrev,ArenaNext:pArena;
  end;

В общем создаю проект на делфи, есть несколько арен, у каждой арены есть "шаги"(Steps). Пытаюсь записать новый шаг в определенную арену, но на выделенной строке вылетает access violetion, в чем же ошибка?

procedure Arena_AddStepToArena(TableId,CheckFrom,CheckIn:integer;PlayerName:string);
var
Arena:pArena;
NewStep:pStep;
begin
Arena:=Arena_GetArenaFromTable(TableId);
new(NewStep);
NewStep.StepNext:=nil;
NewStep.StepPrev:=nil;
NewStep.StepNext:=Arena.Steps;
NewStep.StepNumber:=Arena.StepCount;
NewStep.PlayerName:=PlayerName;
NewStep.CheckIn:=CheckIn;
NewStep.CheckFrom:=CheckFrom;
if Arena.Steps<>nil then Arena.Steps.StepPrev:=NewStep;
Arena.Steps:=NewStep;
inc(Arena.StepCount);
end;

[Stilet]

if Arena.Steps<>nil then Arena.Steps^.StepPrev:=NewStep;

Steps указатель. Хош добраться к его данным - разименовывай.

[Anton911]

Сделал также, но ошибка так и осталась(

[Stilet]

Значит поставь точку прерывания на эту строку, и посмотри чему равны переменные и их поля.

[Anton911]

Я так и делал, смотрел чему что равно.
В NewStep.StepNext успешно сохранилась Arena.Steps.
А Arena.Steps.StepPrev и Arena.Steps.StepNext установлены как nil.

[GunSmoker]

Подозреваю, что ошибка в строке new(NewStep); или аналогичных. Рекомендую использовать AllocMem(SizeOf(TArena));

Ещё я бы сильно рекомендовал использовать классы вместо записей. Код получится гораздо лучше.

Например:

uses
  System.Contnrs;

type
  EMyError = class(Exception);
    EPlayerError = class(EMyError);
      EInvalidPlayerNameError = class(EPlayerError);
      ENoPlayerSet = class(EPlayerError);

  // Игрок
  TPlayer = class
  private
    FName: String;
  public
    constructor Create(const AName: String);

    property Name: String read FName;
  end;

  // Набор игроков
  TPlayers = class
  private
    FList: TObjectList;
    function GetItem(const AIndex: Integer): TPlayer;
    function GetCount: Integer;
  public
    constructor Create;
    destructor Destroy; override;

    procedure Add(const APlayer: TPlayer);
    procedure Delete(const AIndex: Integer);

    function IndexOf(const APlayerName: String): Integer;
    function Find(const APlayerName: String): TPlayer;

    property Count: Integer read GetCount;
    property Items[const AIndex: Integer]: TPlayer read GetItem; default;
  end;

  // Forward-описание
  TArena = class;

  // Шаг
  TStep = class
  private
    FArena: TArena;
    FIndex: Integer;

    FWhiteBlack: Integer;
    FCheckFrom: Integer;
    FCheckIn: Integer;
    function GetPlayer: TPlayer;
  public
    constructor Create(const AArena: TArena);

    property Arena: TArena read FArena;
    property Index: Integer read FIndex;

    property Player: TPlayer read GetPlayer;
    property WhiteBlack: Integer read FWhiteBlack;
    property CheckFrom: Integer read FCheckFrom;
    property CheckIn: Integer read FCheckIn;
  end;

  // Шаги
  TSteps = class
  private
    FList: TObjectList;
    function GetItem(const AIndex: Integer): TStep;
    function GetCount: Integer;
  public
    constructor Create;
    destructor Destroy; override;

    procedure Add(const AStep: TStep);
    procedure Delete(const AIndex: Integer);

    property Count: Integer read GetCount;
    property Items[const AIndex: Integer]: TStep read GetItem; default;
  end;

  // Арена
  TArena = class
  private
    FPlayers: TPlayers;
    FSteps: TSteps;
    FStartDate: TDateTime;
    FEndDate: TDateTime;
  public
    constructor Create;
    destructor Destroy; override;

    property Players: TPlayers read FPlayers;
    property Steps: TSteps read FSteps;

    property DateStart: TDateTime read FStartDate;
    property DateFinish: TDateTime read FEndDate;
  end;

  // Арены
  TArenas = class
  private
    FList: TObjectList;
    function GetItem(const AIndex: Integer): TArena;
    function GetCount: Integer;
  public
    constructor Create;
    destructor Destroy; override;

    procedure Add(const AArena: TArena);
    procedure Delete(const AIndex: Integer);

    property Count: Integer read GetCount;
    property Items[const AIndex: Integer]: TArena read GetItem; default;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Arenas: TArenas;
begin
  Arenas := TArenas.Create;
  try
    // Добавили две арены
    Arenas.Add(TArena.Create);
    Arenas.Add(TArena.Create);

    // Добавили каждой арене по 1 игроку
    Arenas[0].Players.Add(TPlayer.Create('Игрок №1'));
    Arenas[1].Players.Add(TPlayer.Create('Игрок №1'));

    // Три шага для первой арены
    TStep.Create(Arenas[0]);
    TStep.Create(Arenas[0]);
    TStep.Create(Arenas[0]);

    // Два шага для второй
    TStep.Create(Arenas[1]);
    TStep.Create(Arenas[1]);

    Caption := Arenas[0].Steps[0].Player.Name;
  finally
    // Удаляет все арены, шаги, игроков
    FreeAndNil(Arenas);
  end;
end;

[GunSmoker]

И реализация:

{ TPlayer }

constructor TPlayer.Create(const AName: String);
begin
  inherited Create;
  FName := AName;
end;

{ TPlayers }

constructor TPlayers.Create;
begin
  inherited Create;
  FList := TObjectList.Create(True);
end;

destructor TPlayers.Destroy;
begin
  FreeAndNil(FList);
  inherited Destroy;
end;

procedure TPlayers.Add(const APlayer: TPlayer);
begin
  FList.Add(APlayer);
end;

procedure TPlayers.Delete(const AIndex: Integer);
begin
  FList.Delete(AIndex);
end;

function TPlayers.IndexOf(const APlayerName: String): Integer;
var
  X: Integer;
begin
  Result := -1;
  for X := 0 to FList.Count - 1 do
    if Items[X].Name = APlayerName then
    begin
      Result := X;
      Break;
    end;
end;

function TPlayers.Find(const APlayerName: String): TPlayer;
var
  Ind: Integer;
begin
  Ind := IndexOf(APlayerName);
  if Ind < 0 then
    raise EInvalidPlayerNameError.CreateFmt('Не найден игрок с именем %s', [APlayerName]);

  Result := Items[Ind];
end;

function TPlayers.GetCount: Integer;
begin
  Result := FList.Count;
end;

function TPlayers.GetItem(const AIndex: Integer): TPlayer;
begin
  Result := TPlayer(FList[AIndex]);
end;

{ TStep }

constructor TStep.Create(const AArena: TArena);
begin
  inherited Create;
  FArena := AArena;
  FArena.Steps.Add(Self);
end;

function TStep.GetPlayer: TPlayer;
begin
  if FArena.Players.Count = 0 then
    raise ENoPlayerSet.Create('Не заданы игроки');
  Result := FArena.Players[0];
end;

{ TSteps }

constructor TSteps.Create;
begin
  inherited;
  FList := TObjectList.Create(True);
end;

destructor TSteps.Destroy;
begin
  FreeAndNil(FList);
  inherited;
end;

procedure TSteps.Add(const AStep: TStep);
begin
  FList.Add(AStep);
end;

procedure TSteps.Delete(const AIndex: Integer);
begin
  FList.Delete(AIndex);
end;

function TSteps.GetCount: Integer;
begin
  Result := FList.Count;
end;

function TSteps.GetItem(const AIndex: Integer): TStep;
begin
  Result := TStep(FList[AIndex]);
end;

{ TArena }

constructor TArena.Create;
begin
  inherited Create;
  FPlayers := TPlayers.Create;
  FSteps := TSteps.Create;
end;

destructor TArena.Destroy;
begin
  FreeAndNil(FPlayers);
  FreeAndNil(FSteps);
  inherited Destroy;
end;

{ TArenas }

constructor TArenas.Create;
begin
  inherited Create;
  FList := TObjectList.Create(True);
end;

destructor TArenas.Destroy;
begin
  FreeAndNil(FList);
  inherited;
end;

procedure TArenas.Add(const AArena: TArena);
begin
  FList.Add(AArena);
end;

procedure TArenas.Delete(const AIndex: Integer);
begin
  FList.Delete(AIndex);
end;

function TArenas.GetCount: Integer;
begin
  Result := FList.Count;
end;

function TArenas.GetItem(const AIndex: Integer): TArena;
begin
  Result := TArena(FList[AIndex]);
end;

[Anton911]

Поразмышляю над этим.