generation de cle et tableauRésolu

Question

var
  i,n: Integer;
begin
  Randomize;
  repeat
  begin
    n:= Random(255);
    if n in [48..57,65..90,97..122] then               // ce truc la !!
    MemoCle.Text:=MemoCle.Text+Char(n);
  end;
  until Length(MemoCle.Text)=1024;


est ce que ce code est correct? je veux dire, il marche tres bien cependant je ne connais pas grand chose quant aux tableaux, et je sais pas si cette syntaxe est correcte...

merci davance

sovitec · Accepted Answer

Bonjour,



C'est un ensemble.



Simplement je crois que tu pourrais &#233;crire ton code de fa&#231;on plus
efficace comme ceci, vu que tu ne veux g&#233;n&#233;rer que des lettres ou des
chiffres, soit 62 caract&#232;res diff&#233;rents :

var
  i,n: Integer;
begin
  Randomize;
  for i := 1 to 1024 do
  begin
    n:= Random(62);

    if n < 10 then

      Inc(n, 48)

    else if n < 36 then

      Inc(n, 55)

    else

      Inc(n, 61);
    MemoCle.Text:=MemoCle.Text+Char(n);

  end;

end;

neodelphi · Answer

[48..57,65..90,97..122] si le compilateur ne t'engueulle pas c'est que &#231;a marche g&#233;n&#233;ralement... Cette synhtaxe me parait tout a fait correcte.

neodelphi

MoveX · Answer

oui enfin je veux savoir a quoi ca correspond, est ce un tableau ou un ensemble?

MoveX · Answer

mouais, j aime bien ma methode mais merci pour ta reponse !

Generation de cle et tableau

4 réponses

Votre réponse

Discussions similaires