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... :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: |
File - New - Unit
Llamada deste otro formulario, primero hay que incluir dicha Unit en el Uses del Formulario en cuestión.
Un Saludo. |
Gracias...
pero tengo una consulta..: porque declaras esto... y en donde lo utilisas... Var MiGlobalvar:String; |
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. |
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... :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' |
Un Saludo. |
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)); |
Así tiene que estar declarada y no da ningún problema. Un Saludo. |
La franja horaria es GMT +2. Ahora son las 10:42:17. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi