hackerloc
Messages postés24Date d'inscriptionjeudi 6 mars 2008StatutMembreDernière intervention 9 janvier 2009
-
11 août 2008 à 15:18
hackerloc
Messages postés24Date d'inscriptionjeudi 6 mars 2008StatutMembreDernière intervention 9 janvier 2009
-
12 août 2008 à 12:16
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
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 11 août 2008 à 19:10
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]));
Guillemouze
Messages postés991Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention29 août 20136 11 août 2008 à 21:38
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?
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Guillemouze
Messages postés991Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention29 août 20136 12 août 2008 à 00:19
@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.
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 12 août 2008 à 02:43
@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.
Guillemouze
Messages postés991Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention29 août 20136 12 août 2008 à 09:11
@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 ;)