Ver Mensaje Individual
  #2  
Antiguo 07-07-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Reputación: 22
Bicho Va por buen camino
Si lo que deseas es que tu crees una funcion/procedimiento en una unit y sea accesible desde otras, lo más sencillo es que declares estas funciones en la parte public de la unit. Y en las demás units (siempre que sean del mismo proyecto) que tengan que usar las funciones debes añadir en el uses de cada unit, el nombre de la unit que contiene esas funciones, y ya podrás usarlas.

Un ejemplo:

Código Delphi [-]
unit Unit1;

interface

uses
....

type
  ...
  private
      ...
  public 
     procedure miprocedimiento(parametro1: string);
     function mifuncion(parametro2:integer) : Boolean;
  end;

implementation
...
//aqui pones la funcion y/o procedimientos


Y para usarla desde otro formulario tuyo (del mismo proyecto)
Código Delphi [-]
unit Unit2;

interface

uses Unit1
....

type
  ...
      procedure Boton1Click(Sender: TObject);
  private
      ...
  end;

implementation
...

procedure Boton1Click(Sender : TObject);
begin
  //para usar tu funcion de la unit
  Form1.Miprocedimiento(edit.text);
end;

Espero haya quedado claro.

Saludos
Responder Con Cita