GENERATEUR DE NUMEROS

[Résolu]
Signaler
Messages postés
24
Date d'inscription
jeudi 6 mars 2008
Statut
Membre
Dernière intervention
9 janvier 2009
-
Messages postés
24
Date d'inscription
jeudi 6 mars 2008
Statut
Membre
Dernière intervention
9 janvier 2009
-
Salut A tous !!

Je veux un code sourse d'un  GENERATEUR DE NUMEROS programmer en delphi

Exemple :    On met le num 060.xx.xx.xx dans un Edit et On run le générateur
Résultat  :    060.01.01.01
                   060.02.02.02
                   060.03.03.03
                   .....................
                   060.99.99.99

 A condition le num  060 soi pas  fix  et on peux  le modifer

et merci bien a vous ! 

11 réponses

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
type
  TGenMagie = record
    case integer of
      0 : (mD, mC, mB, mA : byte);
      1 : (long : LongWord);
  end;
  TLongWordArray = array of TGenMagie;

procedure GenerateNum(const A, B, C, D: byte; const Count: integer; var LongWordArray: TLongWordArray);
var N : integer;
    M : TGenMagie;
begin
  if Count <= 0 then
    exit;
  SetLength(LongWordArray, Count);
  M.mA := A;
  M.mB := B;
  M.mC := C;
  M.mD := D;
  for N := 0 to Count-1 do
  begin
    LongWordArray[N] := M;
    M.long := M.long + 1;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
var LA : TLongWordArray;
    N  : integer;
begin
  GenerateNum(60,0,0,0, 500, LA);

  for N := 0 to High(LA) do
    ListBOx1.Items.Add(Format('%.3d.%.3d.%.3d.%.3d',[LA[N].mA, LA[N].mB, LA[N].mC, LA[N].mD]));

end;










<hr size="2" width="100%" />

Oh

[auteur/HACKERLOC/1334201.aspx hackerloc] et Oh 060.
xx.
xx.
xx (structure d'une adresse IP).  Il y en a qui sont pas fins.

Je veux un code sourse d'un  GENERATEUR DE NUMEROS programmer en delphi : c'est un numéro ca   060.
xx.
xx.
xx ?

Qui dit numéro di type Cardinal, Integer, ect ect : ca va etre difficile de faire bouffer au compilo 060.
xx.
xx.
xx  comme un entier

Je veux un code sourse : Perso ton culot et ton irrespectait  mériterait un ban sans préavis.

Et pour en rajouter une couche : Dans le règlement il y a écrit : "ON CHERCHE AVANT DE POSTER"

Random(256);
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
7
foxi je te conseille vivement de lire le reglement :
<li>On est poli : «bonjour» et «merci» sont des mots plus qu'appréciés</li>"Type" et "End;" ne veulent pas dire "bonjour" ni "merci"
<li>On utilise un langage correct : pas de langage SMS et on fait attention à l'orthographe.
</li>"0 : (mD, mC, mB, mA : byte);"  c'est pas francais ca !

<li>On ne demande pas un programme tout fait, on ne demande que de l'aide sur un problème concret.</li>et a l'inverse, on ne donne pas un programme tout fait, on ne donne que de l'aide sur un problème concret.
ceci dit, le problème est concret : générer toutes les combinaisons de ... (tient, ça me rappele quelques sources recentes ca)

bref, treves de plaisanteries, tu as bien du courage de repondre à ces "questions".
Serais-tu en manque? pas une ligne de code a te mettre sous la dent?

f0xi et Cirec : Votre bonté vous perdra .

Guillemouze : D'un coté tu as raison. Répondre à ce genre de question, c'est cautionner la feignantise (Effectivement pas tres dur à trouver que de lister tout les chiffres entre 0 et 255). Maintenant la méthode de f0xi est d'une rare élégence : Meme si je me fais guere d'illusion sur la motivation du posteur à se donner du mal  à comprendre et encore plus de à se délecter de ce caviar, les interventions de f0xi m'apportent et m'apprennent beaucoup.

Par contre le coté : j'exige que vous me fassiez un code, me pose problème.
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
7
@francky: effectivement, la methode de foxi est originale. Je ne pense pas que ca me serait venu a l'idee en premier lieu d'utiliser une telle technique.
Donc félicitations foxi pour cette solution originale et pratique.
Messages postés
24
Date d'inscription
jeudi 6 mars 2008
Statut
Membre
Dernière intervention
9 janvier 2009

Merci [auteur/F0XI/360948.aspx f0xi]
Messages postés
24
Date d'inscription
jeudi 6 mars 2008
Statut
Membre
Dernière intervention
9 janvier 2009

Merci encor !! [auteur/F0XI/360948.aspx f0xi] té troop fort ma parolle
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
@guillemouze : je suis tombé bien bas ...

@francky : c'est pas faux.

@hackerloc : j'espère que ma réponse te motivera a chercher de ton coté par toi même personnellement des réponses a tes questions et a respecter un peu plus ceux qui t'aident ou peuvent t'aider.

<hr size="2" width="100%" />
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
13
Merci fOxi... un pirate de plus dans la nature !

Simon
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
7
@foxi: "(...) et a respecter un peu plus
ceux qui t'aident ou peuvent t'aider."
deja un point supplementaire pour hackerloc : il a dit merci! (faut dire aussi que sa question lui a valu -50points). Le voila maintenant a -49 ;)
Messages postés
24
Date d'inscription
jeudi 6 mars 2008
Statut
Membre
Dernière intervention
9 janvier 2009

Ta Sur [auteur/F0XI/360948.aspx f0xi]