FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Como crear Units Publicas...
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..
__________________
BlueSteel |
#2
|
||||
|
||||
File - New - Unit
Llamada deste otro formulario, primero hay que incluir dicha Unit en el Uses del Formulario en cuestión.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
Gracias...
pero tengo una consulta..: porque declaras esto... y en donde lo utilisas... Var MiGlobalvar:String;
__________________
BlueSteel |
#4
|
||||
|
||||
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.
__________________
Guía de Estilo de los Foros Cita:
|
#5
|
||||
|
||||
Ejemplo de Units
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'
__________________
BlueSteel Última edición por BlueSteel fecha: 10-01-2005 a las 23:20:54. |
#6
|
||||
|
||||
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#7
|
||||
|
||||
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));
__________________
BlueSteel |
#8
|
||||
|
||||
Así tiene que estar declarada y no da ningún problema. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|