Discussion :

[J_apprenti]

toujours en essayant de compiler ce bout de code delphi m’annonce cet erreure :
La boucle FOR ou WHILE s'exécute zéro fois - supprimée .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
  tabl : array [1..100] of record
                             name: string;
                              val: Integer;
                           end;
 i,y,tmpI:Integer;
 tmpS:string;
begin
  Randomize;
   for i:= 1 to 100 do
   begin
     y:=Random(1000);
     tabl[i].name:='N_'+inttostr(y);
     tabl[i].val:=y;
   end;
 
    for i:=High(Tabl) downto Low(Tabl) do // là i = -100
     for y:=Low(Tabl) to High(Tabl) do
         if tabl[i].val > tabl [y].val then
         begin
           tmpS:=tabl[i].name;
           tmpI:=tabl[i].val;
           tabl[i].name:=tabl[y].name ;
           tabl[i].val:=tabl[y].val;
           tabl[y].name:=tmpS;
           tabl[y].val:=tmpI;
         end;

merci pour vos remarques

[b_reda31]

salut,je ne sais pas si ma reponse pourai t'aider.Je n'ai pas trop essayer de comprendre ton code,mais je l'ai plutot copier coller dans la procédure Onclick d'un bouton.SURPRISE!! l'éxécution se fait normalement ,du moin pas d'erreur de compilation!!

[J_apprenti]

merci mr b_reda31
mais avec un breakpoint sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for i:=High(Tabl) downto Low(Tabl) do

regarde la valeur que prend le i chez moi c'est toujours -100 et si tu ajoute un memo pour voir le resultat du trie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  for i:=Low(Tabl) to High(Tabl) do
   Memo1.Lines.Add(tabl[i].name+'----'+inttostr(tabl[i].val));

des fois le trie s'efectue et d'autres non .

[b_reda31]

Re,bon alors j'ai bien lu ton code cette fois ci,tu veux donc trier un tableau dans l'ordre decroissant?Pour cela la boucle la plus interne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for y:=Low(Tabl) to...

devra s'arreter a "i" et non a high(tabl) car le tri va se faire valeur par valeur.Voila ce que ça doit donner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 for i:=High(Tabl) downto Low(Tabl) do // là i = -100
     for y:=Low(Tabl) to i do
         if tabl[i].val > tabl [y].val then
         begin
           tmpS:=tabl[i].name;
           tmpI:=tabl[i].val;
           tabl[i].name:=tabl[y].name ;
           tabl[i].val:=tabl[y].val;
           tabl[y].name:=tmpS;
           tabl[y].val:=tmpI;
         end;

je vien d'essayer pour un tableau de dimension 10 et ça marche.alors ça devrai marché chez toi

[J_apprenti]

un grand Merci mr b_reda31, tu as raison pour la la boucle interne et c'est Résolu