martini002,
Cita:
Empezado por martini002
...Tenemos procedimientos propios, como por ejemplo cargar de la BD los empleados en una lista del form principal que esta en la unidad principal...La pregunta en concreto es, ¿Como podría mover ese procedimiento de carga de empleados a otra unidad?...
|
Revisa este código:
Código Delphi
[-]
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
procedure LoadList(List : TStrings);
implementation
procedure LoadList(List : TStrings);
var
i : Integer;
begin
for i := 1 to 10 do
List.Add('Data-' + IntToStr(i));
end;
end.
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadList(ListBox1.Items);
end;
end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32,
carga un TListBox de Form1 en Unit1 con un procedimiento de Unit2.
Nota: En el caso planteado en el
Msg #1, te sugiero crear un modulo de datos y
referenciar este desde la unidad que lo requieras.
Espero sea útil
Nelson.