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...

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

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..

[marcoszorrilla]

File - New - Unit

Código Delphi [-]
 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.

Código Delphi [-]
 ...
 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...
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...

El error que da es Undeclared Identifier :'DWord'

[marcoszorrilla]

Código Delphi [-]
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 ... agregue la siguiente función al codigo anterior :

// 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.... no entiendo....

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

[marcoszorrilla]

Código Delphi [-]
  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.