Como usar procedure en otro Unit
Tengo un procedimiento de usuario para ejecutar sonidos cuyas constantes se colocan en la sección Interface del Unit principal. Luego el procedimiento está en la seccion Implementation ( Procedure Toca(xFile: PChar);) y también en todos y cada una de las unidades secundarias.
Integro en el Uses, sección Implementation de cada unidad secundaria el mismo procedimiento y le coloco la constante que está en el principal. Funciona perfectamente, pero me gustaría saber como se puede hacer pública la función externa de usuario (Toca(xFile: PChar) de manera que no se tenga que repetir en todas las unidades secundarias. He probado de varias maneras pero sin fortuna. ¿Puede alguien sacarme de dudas? |
Hola bulc.
Declara la cabecera de función en la sección de interface de la unidad: Esta unidad deberá incluirse en las unidades donde utilices el procedimiento, de ese modo será visible para cada una de ellas. Saludos. |
bulc,
Revisa esta información: Cita:
Nelson. |
Cita:
Y nada más que agradecerte tu buena guía. Gracias. |
bulc,
Cita:
En términos teóricos depende de la ámbito de visibilidad que quieras dar a tu unidad, interface es pública, implementation es privada. Espero sea útil :) Nelson. |
Hola bulc.
En este caso basta con incluirla en la sección de implementación. Si necesitaras de una declaración de la unidad B para conformar otra de la unidad A que se encuentra en la sección de interface de esta última, tendrías que incluirla en la sección de interface. Ejemplo: Unidad B:
Unidad A: En este caso, como es lógico, es necesario que la unidad B este incluida con anterioridad al uso de TMiClase ya que de otro modo no sería conocida en ese punto por la unidad A Saludos. |
Lo he hecho como dices y !voila! va como la seda
Gracias por tus indicaciones, muy provechosas. He adaptado el código y va perfectamente, con lo cual uno se ahorra mucho código.
También he descubierto por casualidad (serendipia pura) que se puede usar el código de un botón citando el nombre del botón como prefijo seguido de punto y el nombre del evento. Por ejemplo BitBtn2.Click. Nunca lo había visto especificado en los libros de Delphi que uso. Claro que son un poco obsoletos. De Delphi 4 y 5. Pero bueno, lo menciono por si alguien lo lee. Saludos, Bulc. |
Eso es que no has leido bien los libros ;)
Uno cualquiera en La cara oculta de Delphi 4:
|
Ese no lo había leído
Cita:
|
La franja horaria es GMT +2. Ahora son las 10:30:36. |
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