sl : TStringList;
..........................
..........................
Band : Boolean;
begin
Randomize;
Rango := 100;
Band := True;
While Band and (sl.Countdo
begin
Num := Random(Rango);
if (sl.IndexOf(IntToStr(Num))=-1) thenbegin
sl.Add(IntToStr(Num));
Band := False;
showmessage(IntToStr(Num));
end;
end;
end;
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Modo Hilado
