gracias por la ayuda...
si las reglas yo las conosco pero el problema es hacer la interfaz grafica que no tengo ni minima idea de como hacerla...
Tengo algunas ideas de como trabajar algunas cosas pero lo que es la parte grafica estoy abajo....
del codigo que me mandaste para Mezclar:
procedure Mezclar;
var
i: integer;
rand: integer;
temp: TFicha;
begin
for i:=1 to MAX do
begin
rand := Random(MAX)+1;
temp := JuegoFichas[i];
JuegoFichas[i] := JuegoFichas[rand];
JuegosFichas[rand] := temp;
end;
end;
esta muy bien pero hay que tener en cuenta que Random genera numeros aleatorios y se pueden repetir y lo otro es que esta muy bien para un jugador pero para 4 hay que controlar las fichas repartidas del anterior jugador.....
bueno espero que me puedas dar algo de inf para haber si avanzo en algo ok...
espero tu ayuda.....
Mostrar Mensajes
