begin process at 2012 02 10 04:00:52
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Delphi

 > 

Archives

 > 

Divers

 > 

generation de cle et tableau


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

generation de cle et tableau

jeudi 17 mars 2005 à 22:34:12 | generation de cle et tableau

MoveX

[code]
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;
[/code]

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
vendredi 18 mars 2005 à 07:08:09 | Re : generation de cle et tableau

neodelphi

Membre Club
[48..57,65..90,97..122] si le compilateur ne t'engueulle pas c'est que ça marche généralement... Cette synhtaxe me parait tout a fait correcte.

neodelphi
vendredi 18 mars 2005 à 07:20:11 | Re : generation de cle et tableau

MoveX

oui enfin je veux savoir a quoi ca correspond, est ce un tableau ou un ensemble?
vendredi 18 mars 2005 à 14:01:29 | Re : generation de cle et tableau

sovitec

Réponse acceptée !
Bonjour,

C'est un ensemble.

Simplement je crois que tu pourrais écrire ton code de façon plus efficace comme ceci, vu que tu ne veux générer que des lettres ou des chiffres, soit 62 caractères diffé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;

vendredi 18 mars 2005 à 19:20:37 | Re : generation de cle et tableau

MoveX

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


Cette discussion est classée dans : text, code, memocle, generation, cle


Répondre à ce message

Sujets en rapport avec ce message

sql delphi [ par Kruger ] Salut, j'ai un probleme depuis maintenant quelques jours que j'arrive pas à résoudre, voilà, quand je fais une requete SELECT xxx FROM yyy WHERE zzz a message d'erreur avec un calcul de valeur TEdit [ par stephanesvh ] salut a tout le monde Voila, j'ai 3 TEdit-Edit1-Edit2-Edit3Pour les Edit1 Edit2 et Edit3 la valeur Text est vide et recevras des nombres decimal (exe Mdi s.v.p .... [ par Programmeur1987 ] Bonjour tlm, J'aimerais bien savoir Comment utiliser ActiveMdiChild car dans mon appli, il me marque violation du code ... etc voila Modifier une donnée dans une base de donné en utilisant son referentiel [ par Maitre_Gonzo ] BonjourUn probleme qui se pose a moi aujourd'hui est le suivant:Lorsque j'utilise le code qui suit : //Table_piece.First; //While not Table_piece.E filtrer un champ numerique [ par djejja ] Salut,ma patite application est développer sur Delphi6 et la base est implanté sur Paradox7j'ai comme but de filtrer une liste suivant un code si j'ut filtrage BD Access avec Delphi [ par nassim25 ] procedure TfrmFamille.codeKeyUp(Sender: TObject; var Key: Word;  Shift: TShiftState);Var   Erreur : Integer;beginErreur:=0;TableFamille.Filtered:=Fals Pb de tri avec base paradox [ par lohot ] Bonsoir,J'ai un problème avec un tri d'une base de type Paradox dans Delphi. J'utilise ce code pour trier :Filtre := 'CHAMP1 = ''*' + Edit1.Text + '*' Recupérer le code ASCII de chaque caractere d'une string [ par CyberTwister ] Bonjour :Dj'ai une phrase dans un Edit.text.Je voudrais faire une boucle pour lister ttes les lettres et faire une action suivant leur caractere ANSII [CS]nouvelle Text-box [ par f0xi ] la belle et superbe nouvelle textbox pour les messages semble supprimer les espaces en debut de ligne, ce qui empeche d'indenter les mots dans les mes ADOQUERY ne renvoie rien .... [ par guy jeuniaux ] Bonjour, J'ai beau chercher dans les forums et autres messages et je ne trouve pas. Voici mon problème qui j'en suis sûr trouvera une solution. J'util


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 17,441 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales