[dec]

Hola,

Empezado por Román

Ahora, esto que mencioné recuerdo haberlo leído en algún mensaje de Peter Below, aunque buscando ahora en Tamaracka me encuentro con una respuesta de Rudy Velthuis donde dice que Dispose sobre el puntero al registro es más que suficiente. Aunque en ese caso habrá que usar New en lugar de GetMem.

O sea, ¿Algo como lo siguiente funcionaría? (Desde luego compila y se ejecuta sin error aparente...) ¿Y además sería una buena forma de hacerlo?

Código Delphi [-]
type
  TRegistro = record
    unCampo: integer;
    otroCampo: string;
  end;
  PRegistro = ^TRegistro;

var
  PUnRegistro: PRegistro;

procedure TForm1.Button1Click(Sender: TObject);
begin
  New(PUnRegistro);

  PUnRegistro.unCampo := 1;
  PUnRegistro.otroCampo := 'Una cadena';

  ShowMessage(PUnRegistro.otroCampo);
  ShowMessage(IntToStr(PUnRegistro.unCampo));

  Dispose(PUnRegistro);
end;