Manejo de vaiables

[Luli]

hola, gracias por responder, cuando declaro las variables, la lista y el arreglo en la unit del formulario principal y no en las unit de los formularios secundarios, que es donde se utilizan, al compilar me manda un error porque dice que las variables no estan declaradas en las unit donde se usan...

Y se me ocurrio eliminarlas de las unit de los formularios secundarios porque aunque es ahi donde se usan principalmente, creo que el programa no funciona correctamente porque tal vez las variables se inicializan más de una vez o no sé, algo pasa, por eso decidi declararlas una sola vez, de manera global, pero no me funcionó, seguramente no lo hice bien.

Intentaré lo de la unit donde solo se declaren variables, de cualquier manera si me pudiera enviar algun ejemplo de codigo que me sea de utilidad se lo agradecería mucho...

[marcoszorrilla]

Código Delphi [-]
 unit Global;
 
 interface
 uses
 SysUtils,DmAnievas,Registry,Windows,Printers,Dialogs;
 Var
 AskBor:Boolean;
 nIntentos:Integer;
 nClave:Integer;
 Estado:Integer;
 nOpcion:Integer;
 
 
 Anno,Mes,Dia:Word;
 Pueblo:String;
 cFiltro:String;
 listado:Integer;
 cUsuario:String;
 nSuma:Integer;
 
 nReparaouble; //Número de reparación actual
 Function Codifica(s:String):String;
 function RoundEuros(Const X: Double): Double;
 function GrupoTrabajo : string;
 Function NombreUsuario():String;
 Function GetImpresora(Impre:String):Integer;
 
 Procedure BorraLck();
 
 Const
 clinDown = Chr(10)+Chr(13);
 
 implementation
 
 {Aqui iran todos los procedimientos y
 funciones declarados}
 
 
 
 function RoundEuros(Const X: Double): Double;
 var
 r:Int64;  //resto
 X2:Int64; //número
 x1:double;  //resultado
 begin
 x2:=trunc((abs(x)*1000)+0.5); //Tomo los 3 primeros decimales.
 
 r:=(x2 mod 10);//Compruebo si el 3 decimal es >=5
 x2:=trunc(x2/10);//desprecio el tercer decimal
 
         if r >= 5  then  //Si el 3 decimal era >= 5 sumo 1 al número
                 x2:=x2+1;
 
 x1:=x2/100; //Construyo el número con los 2 decimales
 
         if x < 0 then
                 result:=0 - x1
         else
                 result:=x1;
 
 end;
 
 
 
 end.

En todos los forms en que vayas a utilizar estas variables y funciones tienes que hacer un "Use" de esta unidad.

Un Saludo.

[Yaco]

Si necesitas que los valores de esas variables sean "visibles" desde varios forms o/y units, la mejor opcion es crear una unidad donde declares dichas variables, en la zona interface y luego añadir esta unidad en la "uses" de cada form en el que vaya a usarlas.

Si por el contrario, los valoes solo van a ser usados dentro de cada form y no necesitas que pasen a otros, basta con declararlas en la zona private de cada uno.

La tersera posibilidad es que deses acceder puntualmente al valor de una variable que esta en otro form abierto. Para ello, dicha variable debe estar declarada en la zona public del form y añadir este este al "uses" del form desde quieras acceder. Luego, el modo de hacer referencia a esta variable debera ser form1.variable.

Espero haberme explicado.
Un saludo
Yaco