Generate random words  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 17/08/01

Tip accessed 846 times

 


By example, for generate random passwords, or ID codes, etc...



 procedure TForm1.Button1Click(Sender: TObject);

   function PalabraAleatoria(Longitud: integer): string;
   const
     Letras = '01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   var
     n  : integer;
   begin
     Result:='';
     for n:=1 to Longitud do Result:=Result+Letras[1+Random(Length(Letras))];
   end;

 begin
   Caption:=PalabraAleatoria(10);
 end;