hola amigo yo estoy en las mismas mira a ver si entrelos dos lo sacamos o alguien nos auxilia, tengo que hacer que en 40 images, que tengo en un arreglo llamado Carta asignarles un numero al azar del uno al 20 pero solo se pueden repetir una vez mira lo que he hecho
Código Delphi
[-]
for a:=1 to 20 do
begin
Repeat
fin:=20
Randomize;
num:=random(20)+1;
z:=true;
for c:=1 to fin do
begin
if num=Carta[c].Tag then
begin
z:=false;
fin:=0;
end
end;
Until(z=true);
Carta[a].Tag:=num;
end;
avisame que te parece