Ver Mensaje Individual
  #2  
Antiguo 15-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola tiago_begins.

Depende el alcance que quieras darle. Si querés que pueda ser accedido desde otra unidad podría ser:
Código Delphi [-]
...
type
  TForm1 = class(TForm)
    ...
  private
  public
  end;
  TMiRegistro = Record
    Nombre : String[20];
    Telefono : String[7];
  end;
  TFileReg = file of TMiRegistro;

var
  Form1: TForm1;
  FileReg: TFileReg;
  Reg: TMiRegistro;

implentation
...

Si queres que sólo pueda ser accedida desde esa unidad sería:
Código Delphi [-]
...
implementation
type
  TMiRegistro = Record
    Nombre : String[20];
    Telefono : String[7];
  end;
var
  Form1: TForm1;
  FileReg: TFileReg;
  Reg: TMiRegistro;
...

O con el mismo alcance se podría hacer:
Código Delphi [-]
type
  TForm1 = class(TForm)
    ...
  private
    FileReg: file of record
      Nombre : string[20];
      Telefono : string[7];
    end;
  public
  end;
...

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 16-05-2011 a las 00:02:11.
Responder Con Cita