Como crear Units Publicas...

[BlueSteel]

Hola...

Cuando trabaje con Clipper 5.X podía crear procedimientos y funciones... como varias de ellas las ocupaba en diferentes sub-programas dentro de un mismo sistema, creaba una compilación de procedimientos y funciones a la cual le llamaba rutinas.prg... :cool:

luego, si necesita algun procedimiento que estaba dentro de rutina.prg... solo tenia que llamarla.... :p

Se que delphi 7 soporta este tipo de proceso, pero nunca lo he trabajado... alguien sabe como tengo que crear dicho técnica....

Crear la Unit...
Donde declarar las funciones...
Como llamar la unit desde un formulario... donde la declaro...
y por último, como llamar la funcion o procedimiento ...

grx.. :rolleyes:

[marcoszorrilla]

File - New - Unit

unit Globales;

interface
Var
MiGlobalvar:String;
Function MiFuncion(s:String):boolean;

implementation
Function MiFuncion(s:String):boolean;
begin
if s ='Hola' then
Result:=True
else
Result:=False;
end;


Llamada deste otro formulario, primero hay que incluir dicha Unit en el Uses del Formulario en cuestión.


...
implementation

uses Globales;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
If Mifuncion('Hola') then
showMessage('Correcto')
else
ShowMessage('Incorrecto');

end;

end.


Un Saludo.

[BlueSteel]

Gracias...

pero tengo una consulta..:

porque declaras esto... y en donde lo utilisas...

Var
MiGlobalvar:String;

[marcoszorrilla]

Era solo un ejemplo, de variable global, luego en cualquier módulo en donde necesite utilizar esa variable global, tras hacer el "Uses" correspondiente.

MiGlobalvar:=table1Username.Value;

Ahora desde toda la aplicación se podrá saber el nombre del usuario ya que está guardado en una variable global.

Un Saludo.

[BlueSteel]

Estoy realizando la siguiente prueba.... esta es mi Unit Global

Unit Unit8;
Interface
Function GetUserName:String;
implementation

// Funcion que permite obtener el Nombre de Usuario que esta usando el Computador
Function GetUserName:String;
Var
PcUser : PChar;
DwUsize : DWord;
Begin
DwUsize := 21;
GetMem( PcUser, DwUsize);
Try
If Windows.GetUserName( PcUser, DwUsize ) then
Result := PcUser
Finally
FreeMem( PcUser );
End;
End;
end.

luego la llamare del menu principal del sistema... :p
Barra.Panels[3].Text:=GetUserName;


Pero tengo el siguiente problema... esta función me funcionaba cuando la tenia en el menú principal.... ahora que la deje sola... me da error con la variable DwUsize : DWord; me parece que es porque esta definida en otra unit.. pero no se cual es... :confused:

El error que da es Undeclared Identifier :'DWord'

[marcoszorrilla]

Unit Unit8;

Interface
uses
Windows;

Function GetUserName:String;
implementation

// Funcion que permite obtener el Nombre de Usuario que esta usando el Computador
Function GetUserName:String;
Var
PcUser : PChar;
DwUsize : DWord;
Begin
DwUsize := 21;
GetMem( PcUser, DwUsize);
Try
If Windows.GetUserName( PcUser, DwUsize ) then
Result := PcUser
Finally
FreeMem( PcUser );
End;
End;

end.


Un Saludo.

[BlueSteel]

tengo otro consulta :D ... agregue la siguiente función al codigo anterior :p :

// Funcion que permite redondear...
Function RoundN(X: Extended): Extended;
begin
Result := Int(X) + Int(Frac(X) * 2);
end;

la estoy llamando de un form... la declaro en Uses...(Unit8)... pero cuando la ejecuto, me origina un error de Undeclared Identifier :'RoundN'.. pero si la funcion la dejo en el form.. me funciona bien.... :confused: no entiendo....

vTot_Iva.Text := FloatToStr(RoundN(StrToFloat(vTot_Net.Text)*0.19));

[marcoszorrilla]

Unit Unit8;

Interface
uses
Windows;
Function RoundN(X: Extended): Extended;
Function GetUserName:String;
implementation

// Funcion que permite obtener el Nombre de Usuario que esta usando el Computador
Function GetUserName:String;
Var
PcUser : PChar;
DwUsize : DWord;
Begin
DwUsize := 21;
GetMem( PcUser, DwUsize);
Try
If Windows.GetUserName( PcUser, DwUsize ) then
Result := PcUser
Finally
FreeMem( PcUser );
End;
End;
// Funcion que permite redondear...
Function RoundN(X: Extended): Extended;
begin
Result := Int(X) + Int(Frac(X) * 2);
end;
end.


Así tiene que estar declarada y no da ningún problema.

Un Saludo.