Enlaces sin punteros

[navbuoy]

lo de enlaza creo que se refiere al campo "sexo"

Ejemplo de lista enlazada sin punteros explícitos usando clases:

type
  TNode = class
    Data: Integer;
    Next: TNode;  // Aquí seguimos apuntando al siguiente nodo, pero sin punteros explícitos
  end;

  TLinkedList = class
  private
    Head: TNode;
  public
    procedure AddNode(Value: Integer);
    procedure PrintList;
    procedure Clear;
  end;

Implementación de métodos:

procedure TLinkedList.AddNode(Value: Integer);
var
  NewNode: TNode;
begin
  // Creamos un nuevo nodo
  NewNode := TNode.Create;
  NewNode.Data := Value;
  NewNode.Next := Head;  // El nuevo nodo apunta a la cabeza actual
  Head := NewNode;       // La cabeza ahora es el nuevo nodo
end;

procedure TLinkedList.PrintList;
var
  Current: TNode;
begin
  Current := Head;
  while Current <> nil do
  begin
    WriteLn(Current.Data);  // Mostramos el dato actual
    Current := Current.Next; // Avanzamos al siguiente nodo
  end;
end;

procedure TLinkedList.Clear;
var
  Temp: TNode;
begin
  while Head <> nil do
  begin
    Temp := Head;
    Head := Head.Next;
    Temp.Free;  // Liberamos la memoria del nodo
  end;
end;

ejemplo de Uso:

var
  List: TLinkedList;
begin
  List := TLinkedList.Create;

  List.AddNode(10);
  List.AddNode(20);
  List.AddNode(30);

  List.PrintList;  // Muestra 30, 20, 10

  List.Clear;      // Limpia la lista y libera memoria

  List.Free;       // Libera la instancia de la lista
end.

[[Al González]]

navbuoy: Aunque no sea un puntero explícito, sigue siendo un puntero. Todas las referencias a instancias de clases Delphi lo son. :-)

Ñuño: ¿en qué fase de comprensión vas? Yo no entendí nada todavía pero ¿cuál es tu duda medular? ¿Puedes reducirla a su mínima expresión? Tal vez me anime a echarle un vistazo con calma en estos días.

Edito: Bueno, agregaría que al parecer el registro contiene un campo que indica su posición en una matriz unidireccional (vulgarmente conocida como "arreglo"), y eso, un índice por elemento (persona), es suficiente para que pueda conocerse, a partir de un registro, cuál es el siguiente o el anterior registro de la matriz. Diría que tiene la ventaja de que con un solo campo de tipo Integer puedes "enlazar" al registro predecesor y al registro sucesor, cosa que en otros escenarios vemos resuelto con el uso de dos campos punteros en cada record (necesitando más memoria).

Un confuso abrazo.

Al González.