Ver Mensaje Individual
  #3  
Antiguo 24-09-2016
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 ssouto, bienvenido a los foros de Club Delphi. Y como acostumbramos con los ingresantes, te invitamos a que leas nuestra guía de estilo.

Primero creas una nueva unidad ( File -> New -> Unit ). Delphi te creará un esqueleto similar a este:
Código Delphi [-]
unit Unit2; 

interface  {1}    

implementation {2} 

end.
Todo lo que desees que sea accesible desde cualquier unidad que incluya a esta, lo declaras en la sección interface (luego de {1}), ej.:
Código Delphi [-]
unit Unit2;

interface {1}

type
  PNodo = ^TNodo;
  TNodo = packed record
    dato1 : string[50];
    dato2 : integer;
    ant   : PNodo;
    sig   : PNodo;
  end;

  procedure CrearLista(var Nodo: PNodo; const cad: string; const nro: Integer);
  ...
Y todo lo que no desees que sea accesible desde otras unidades, en la sección implementation (luego de {2}), vg.:
Código Delphi [-]
...

implementation {2}

procedure CrearLista(var Nodo: PNodo; const cad: string; const nro: Integer);
begin
  New(Nodo);
  Nodo^.dato1 := cad;
  Nodo^.dato2 := nro;
  Nodo^.ant   := nil;
  Nodo^.sig   := nil
end;

...

end.
Luego ya podrías hacer:
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;  // (también podrías incluirla aqui)

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation  

uses Unit2;  // <- aquí, incluida la unidad

procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: PNodo;
begin
  CrearLista(Lista, 'Hola', 115);
end;
...

Mas sobre unidades:Buscando en la web, seguramente encuentres mas información.

Saludos
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 24-09-2016 a las 03:25:43.
Responder Con Cita