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