Como crear Units Publicas...

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