procedure TfrmSort.btnSortClick(Sender: TObject); VAR I,j:integer; k:STRING; begin for i:=0 to lbxListe.Items.Count - 1 do for j:=i to lbxListe.Items.Count - 1 do if (StrToFloat(lbxListe.Items.Strings[J]))< (StrToFloat(lbxListe.Items.Strings[I]))then begin k:=lbxListe.Items.Strings[I]; lbxListe.Items.Strings[I]:=lbxListe.Items.Strings[J]; lbxListe.Items.Strings[J]:=k; end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question25420,2325 7854,1478 125896,21 9875,32 5523,00 22,17 10,88 5652,255 5652,025 1,0 5,0 4,0 3,0 2,0 1,0 0,1 1,0
25420,2325 7854,1478 125896,21 9875,32 5523,00 22,17 10,88 5652,255 5652,025 1,0 5,0 4,0 3,0 2,0 1,0 0,1 1,0 0,005le code de "JacKrauser" à besoin de faire 16 échanges pour trier 18 valeurs ...