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
implementation
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
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
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;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
uses Unit2;
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