Ver Mensaje Individual
  #2  
Antiguo 03-01-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
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
    { Private declarations }
  public
    { Public declarations }
  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.
Responder Con Cita