Ver Mensaje Individual
  #3  
Antiguo 15-11-2007
Avatar de aenima
aenima aenima is offline
Registrado
 
Registrado: nov 2007
Ubicación: Madrid
Posts: 6
Reputación: 0
aenima Va por buen camino
Pues mi programa simula una maquina tragaperras.

En la DLL tengo sus funciones: Tirada, AvanzarRueda, EscribirCombinacionRueda y dos más de escritura. Tirada es una funciona y lo demás son procedimientos. Aparte tengo una unidad con los tipos usados: TFigura, TCombinacionRuedas, etc.

Sus cabeceras son:

procedure EscribirCombinacionRuedas(Combinacion: TCombinacionRuedas);
procedure EscribirRuedasAvanzar(Combinacion: TCombinacionRuedas);
procedure EscribirCombinacionesPremiadas(Premiadas: TCombinacionesPremiadas);

function Tirada: TCombinacionRuedas;
procedure AvanzarRueda(NumRueda: integer; var Combinacion:TCombinacionRuedas);

En principio tenía aparte un modulo con los 3 primeros procedimientos, otro modulos con los dos ultimos y un programa principal que con uses me usaba los dos módulos y funcionaba. En uno de los modulos tengo 3 variables globales que usaba el 2º modulo y el programa principal y creo que es ahi donde está el problema.
Las variables que pasaba del modulo al p.p. son:
var
FigurasRueda:TFigurasRueda;
CombinacionesPremiadas:TCombinacionesPremiadas;
Ruedas:TcombinacionRuedas;

Ahora me piden hacerlo con librerias y ya no escribe nada en el programa principal. Me huelo que es un problema con las variables pero no sé como resolverlo.

Muchas gracias por contestar
Responder Con Cita