Sorteo

[ecfisa]

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; // variable global a la unidad

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