1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[Pascal] Randomize

Discussão em 'Programação' iniciada por n0stress, 5 de Fevereiro de 2009. (Respostas: 0; Visualizações: 3455)

  1. Código:
    (*
    Author : DarkCoderSc
    Function To randomise any string =)
    *)
    
    Function RandomName : String;
    const  Chars = '0123456789ABCDEFGHJKLMNPQRSTUVWXYZ';
    var
    S: string;
    i, N: integer;
    begin
    Randomize;
    S := '';
    for i := 1 to 8 do begin
        N := Random(Length(Chars)) + 1;
        S := S + Chars[N];
     Result := S;
    End;
    End;
    
    Funçao muito util por vezes
     

Partilhar esta Página