Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : generation de cle et tableau [ Archives / Divers ] (MoveX)

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é 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 comprendre un code... [ par lunchbox ] bonjours, j'ai besoins d'une procédure pour extraire plusieurs strings d'une seul qui utilise des virgules pour les séparer...pour faire cela, j'ai tr


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,328 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.