librerías personalizadas para agregar en "uses"

[ecfisa]

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:

• Programas y unidades
• Como crear nuestra Unit en Delphi ?
• Working with units...
• Programs and Units (...

Buscando en la web, seguramente encuentres mas información.

Saludos