Cita:
Empezado por Valee
Ahora tengo otra duda con el mismo trabajo. Resulta que el profesor nos hizo crear la cola mandandole el nombre del archivo, de la siguiente forma:
CrearCola(var Cola: TipoCola;Nombre: string);
De ser así, en cada proceso dentro de la librería, se tiene que poner el nombre¿? Porque ahora lo estoy necesitando y nose si se puede, o como hacerlo.. Como hago para entrar al GrupoA, o al GrupoD¿?
|
Hola Valee.
Una opción es:
Código Delphi
[-]
unit LibCola
interface
...
type
TipoPosicion= longint;
...
procedure CrearCola (var Cola: TipoCola; aFileName:string);
...
implementation
var
gFileName: string;
procedure CrearCola (var Cola: TipoCola; aFileName:string);
begin
gFileName:= aFileName;
...
A partir de la asignación, todas las implementaciones de funciones y procedimientos de la unidad podrán acceder a
gFileName y no tendrás necesidad de enviarles el nombre de archivo como argumento a cada una (que creo es lo que querías evitar).
Saludos