begin process at 2010 02 10 06:43:33
  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 base de données [ par liza06_1 ] salut tout le monde c'est encore moi, voila j'ai un petit problème concernant la mise à jour de ma table " Section " je voulais créer des enregistreme [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


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
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 : 0,437 sec (3)

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