TRI DANS LISTBOX/COMBOBOX (TSTRINGS) tri, TStrings, listbox, combobox, integer, Source N°45139

Information sur la source

Catégorie :Trucs & Astuces Classé sous : tri, TStrings, listbox, combobox, integer Niveau : Débutant Date de création : 20/12/2007 Date de mise à jour : 27/12/2007 20:37:14 Vu / téléchargé: 3 747 / 242

Auteur : MAURICIO

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :
Aucune note

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

D' après une question sur le forum :
http://www.delphifr.com/infomsg_TRI-NUMERIQUE-SUR-LISTBOX_1050562.aspx
et afin de démontrer que mes méthodes fonctionnent.

Notez que la 2eme méthode est plus interessante car elle permet de trier indépendemment du texte qui va dans la TStrings et de la nature du/des tri(s) à faire ...

Il y a un zip avec un exemple :)

Bon Noël à tous !!!

A+

Source

// Méthode 1 :
function STRING_INTEGER(Str: String; StringRead: TStringRead): String;
var I: Integer;
Cont: Boolean;
begin
Cont := True;
RESULT := '';
if StringRead = srFromLeft
then begin
for i := 1 to Length(Str) do
if (Cont) and (Str[i] in ['-', '0'..'9'])
then begin
if Str[i] = '-'
then begin
if (RESULT = '') and (i < length(Str))
then begin
if Str[i+1] in ['0'..'9']
then RESULT := '-';
end
else
Cont := false;
end
else
RESULT := RESULT + Str[i];
end
else
Cont := RESULT = '';
end
else begin
for i := Length(Str) downto 1 do
if (Cont) and (Str[i] in ['-', '0'..'9'])
then begin
if Str[i] = '-'
then begin
if RESULT <> ''
then begin
RESULT := '-' + RESULT;
Cont := false;
end;
end
else
RESULT := Str[i] + RESULT;
end
else
Cont := RESULT = '';
end;
end;
procedure TSTRINGS_TRI(Lista: TStrings);
var
i, j, IndSmall, ValueSmall, ValueItem : Integer;
Str: String;
begin
for i := 0 to Lista.Count - 2 do
begin
// Le plus petit pour l' instant :
IndSmall := i;
Str := STRING_INTEGER(Lista[i], srFromLeft);
if Str <> '' // Partie Integer de l' item trouvé ?
then ValueSmall := StrToInt(Str)
else ValueSmall := 0; // On peut mettre la valeur que l' on veut selon ce que l' on veut faire ...
// Rechercher le plus petit depuis la position i+1 :
for j := i + 1 to Lista.Count - 1 do
begin
// Récupérer l' integer dans l' item :
Str := STRING_INTEGER(Lista[j], srFromLeft);
if Str <> '' // Partie Integer de l' item trouvé ?
then ValueItem := StrToInt(Str)
else ValueItem := 0; // On peut mettre la valeur que l' on veut selon ce que l' on veut faire ...
if ValueItem < ValueSmall
then begin
IndSmall := j;
ValueSmall := ValueItem;
end;
end;
if IndSmall <> i // Si les indices sont différents, permuter les 2 items ...
then begin
Str := Lista[i];
Lista[i] := Lista[IndSmall];
Lista[IndSmall] := Str;
end;
end;
end;
procedure TForm1.BtnExec1Click(Sender: TObject);
begin
TSTRINGS_TRI(LB1.Items);
end;
// Méthode 2 :
procedure TForm1.BtnExec2Click(Sender: TObject);
type
rItemData = Record
Value: Integer; // Entier ou autre qui nous permettra d' ordonner
ItemStr: String; // Texte que l' on veut passer dans la ListBox
Exported: Boolean; // Savoir si on a déjá passé cet item dans la ListBox
end;
var
NbItems, IndSmallItem: Integer;
Array_Items: Array of rItemData;
procedure ARRAY_ADD_ITEM(aValue: Integer; aItemStr: String);
begin
inc(NbItems, 1);
SetLength(Array_Items, NbItems);
Array_Items[NbItems-1].Exported := false;
Array_Items[NbItems-1].Value := aValue;
Array_Items[NbItems-1].ItemStr := aItemStr;
end;
function GetIndSmallItem: Integer;
var i: Integer;
begin
RESULT := -1; // Aucun par défaut ...
for i := 0 to NbItems -1 do
if not Array_Items[i].Exported // Pas encore passé dans la ListBox ...
then
if RESULT = -1 // Aucun pour l'instant
then
RESULT := i
else // *** Ici on compare des integers, mais on peut comparer tout ce que l' on veut *** //
if Array_Items[i].Value < Array_Items[RESULT].Value
then RESULT := i; // Nouveau item plus petit trouvé !!!
end;
begin
NbItems := 0;
LB2.Items.Clear;
// Chargement des items que l' on veut ordonner dans l' array :
ARRAY_ADD_ITEM(35, ' Mon item de valeur trente cinq');
ARRAY_ADD_ITEM(18, ' Mon item de valeur dix huit');
ARRAY_ADD_ITEM(25, ' Mon item de valeur vingt cinq');
ARRAY_ADD_ITEM(3, ' Mon item de valeur trois');
ARRAY_ADD_ITEM(999, ' Mon item de valeur neuf cent quatre vingt dix neuf');
ARRAY_ADD_ITEM(-6, ' Mon item de valeur moins six');
ARRAY_ADD_ITEM(25, ' Mon item de valeur vingt cinq'); // Doublon lol
// Passer les items dans la ListBox :
repeat
IndSmallItem := GetIndSmallItem;
if IndSmallItem <> -1
then begin
LB2.Items.Add(Array_Items[IndSmallItem].ItemStr);
Array_Items[IndSmallItem].Exported := true;
end;
until IndSmallItem = -1; // Plus d' item dans l' array
end;

// Méthode 1 :
function STRING_INTEGER(Str: String; StringRead: TStringRead): String;
var I: Integer;
    Cont: Boolean;
begin
  Cont   := True;
  RESULT := '';

  if StringRead = srFromLeft
  then begin
     for i := 1 to Length(Str) do
       if (Cont) and (Str[i] in ['-', '0'..'9'])
       then begin
         if Str[i] = '-'
         then begin
           if (RESULT = '') and (i < length(Str))
           then begin
             if Str[i+1] in ['0'..'9']
             then RESULT := '-';
           end
           else
             Cont := false;
         end
         else
           RESULT := RESULT + Str[i];
       end
       else
         Cont := RESULT = '';
  end
  else begin
     for i := Length(Str) downto 1 do
       if (Cont) and (Str[i] in ['-', '0'..'9'])
       then begin
         if Str[i] = '-'
         then begin
           if RESULT <> ''
           then begin
             RESULT := '-' + RESULT;
             Cont := false;
           end;
         end
         else
           RESULT := Str[i] + RESULT;
       end
       else
         Cont := RESULT = '';
  end;
end;


procedure TSTRINGS_TRI(Lista: TStrings);
var
  i, j, IndSmall, ValueSmall, ValueItem : Integer;
  Str: String;
begin
  for i := 0 to Lista.Count - 2 do
  begin
    // Le plus petit pour l' instant :
    IndSmall := i;
    Str := STRING_INTEGER(Lista[i], srFromLeft);

    if Str <> ''   // Partie Integer de l' item trouvé ?
    then ValueSmall := StrToInt(Str)
    else ValueSmall := 0;   // On peut mettre la valeur que l' on veut selon ce que l' on veut faire ...

    // Rechercher le plus petit depuis la position i+1 :
    for j := i + 1 to Lista.Count - 1 do
    begin
      // Récupérer l' integer dans l' item :
      Str := STRING_INTEGER(Lista[j], srFromLeft);

      if Str <> ''   // Partie Integer de l' item trouvé ?
      then ValueItem := StrToInt(Str)
      else ValueItem := 0;   // On peut mettre la valeur que l' on veut selon ce que l' on veut faire ...

      if ValueItem < ValueSmall
      then begin
        IndSmall := j;
        ValueSmall := ValueItem;
      end;
    end;

    if IndSmall <> i      // Si les indices sont différents, permuter les 2 items ...
    then begin
      Str := Lista[i];
      Lista[i] := Lista[IndSmall];
      Lista[IndSmall] := Str;
    end;
  end;
end;

procedure TForm1.BtnExec1Click(Sender: TObject);
begin
  TSTRINGS_TRI(LB1.Items);
end;

// Méthode 2 :
procedure TForm1.BtnExec2Click(Sender: TObject);
type
  rItemData = Record
    Value: Integer;       // Entier ou autre qui nous permettra d' ordonner
    ItemStr: String;      // Texte que l' on veut passer dans la ListBox
    Exported: Boolean;    // Savoir si on a déjá passé cet item dans la ListBox 
  end;
var
  NbItems, IndSmallItem: Integer;
  Array_Items: Array of rItemData;

  procedure ARRAY_ADD_ITEM(aValue: Integer; aItemStr: String);
  begin
    inc(NbItems, 1);
    SetLength(Array_Items, NbItems);

    Array_Items[NbItems-1].Exported := false;
    Array_Items[NbItems-1].Value := aValue;
    Array_Items[NbItems-1].ItemStr := aItemStr;
  end;

  function GetIndSmallItem: Integer;
  var i: Integer;
  begin
    RESULT := -1; // Aucun par défaut ...

    for i := 0 to NbItems -1 do
      if not Array_Items[i].Exported   // Pas encore passé dans la ListBox ...
      then
        if RESULT = -1                 // Aucun pour l'instant
        then
          RESULT := i
        else  // *** Ici on compare des integers, mais on peut comparer tout ce que l' on veut *** //
          if Array_Items[i].Value < Array_Items[RESULT].Value
          then RESULT := i;            // Nouveau item plus petit trouvé !!!
  end;

begin
  NbItems := 0;
  LB2.Items.Clear;
  
  // Chargement des items que l' on veut ordonner dans l' array :
  ARRAY_ADD_ITEM(35,  ' Mon item de valeur trente cinq');
  ARRAY_ADD_ITEM(18,  ' Mon item de valeur dix huit');
  ARRAY_ADD_ITEM(25,  ' Mon item de valeur vingt cinq');
  ARRAY_ADD_ITEM(3,   ' Mon item de valeur trois');
  ARRAY_ADD_ITEM(999, ' Mon item de valeur neuf cent quatre vingt dix neuf');
  ARRAY_ADD_ITEM(-6,  ' Mon item de valeur moins six');
  ARRAY_ADD_ITEM(25,  ' Mon item de valeur vingt cinq'); // Doublon lol

  // Passer les items dans la ListBox :
  repeat
    IndSmallItem := GetIndSmallItem;

    if IndSmallItem <> -1
    then begin
      LB2.Items.Add(Array_Items[IndSmallItem].ItemStr);
      Array_Items[IndSmallItem].Exported := true;
    end;
  until IndSmallItem = -1;  // Plus d' item dans l' array
end;

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Tri TStrings
- Project1.dpr 188 octets
- Project1.res876 octets
- Unit1.dfm932 octets
- Unit1.pas 5 381 octets

Télécharger le zip

Historique

20 décembre 2007 13:04:41 :: J' ai remplacé dans la 2eme méthode les chiffres en lettres et j' ai ajouté un doublon pour démontrer qu' il n' y a aucun problème ...

Sources du même auteur

Toutes les sources de MAURICIO

Sources de la même categorie

Toutes les sources de la catégorie Trucs & Astuces

Sources en rapport avec celle ci

Commentaires

Commentaire de cantador le 21/12/2007 13:06:16

Peut-être aurait t-il fallut prendre des données moins
tarabiscotées dans la première listbox ce qui aurait aidé
à la compréhension..
Pour ma part dans un tri il y a deux choses :
Quel est le résultat que l'on veut obtenir ou comment veux t-on voir les données ?
C'est l'aspect qualitatif qui dépend uniquement du contexte.
Et puis reste la méthode :
là c'est l'aspect technique et dans cet exercice, l'essentiel est
la rapidité d'exécution.
@+
Commentaire de MAURICIO le 21/12/2007 13:21:04

Merci pour ton commentaire Cantador,

la méthode 2 permet de personaliser le tri selon un integer, une date etc ...
Elle permet aussi d' avoir une sortie dans la ListBox indépendente de la méthode de tri.

La méthode 1 montre un tri sur un Integer quel que soit sa position dans la string.

A+
Commentaire de cantador le 21/12/2007 17:35:39

Pour la méthode 1, je dirais le premier entier trouvé quelle que
soit sa position dans la chaîne.
Commentaire de cirec le 27/12/2007 20:36:10 administrateur CS

Il aurait été bien de préciser que cette méthode de trie ne tient compte que des entiers et pas des caractères qui suivent.

ceci dit l'approche n'en est pas moins intéressante pour autant

ps : j'ai rajouté le lien du forum qui à initié cette source (on y trouve aussi des alternatives qui tiennent compte et des entiers et des caractères)
et j'ai aussi fait le ménage dans le Zip (trop de fichiers inutiles)
Commentaire de MAURICIO le 28/12/2007 10:08:05

Merci Cirec,
la question sur le forum posait bien la question de trier AUSSI sur le texte.

Les méthodes ici n' en tiennent pas compte mais il serait assez simple à mettre en oeuvre.

A+

Ajouter un commentaire

Discussions en rapport avec ce code source

éléments associés à une ListBox par gui_llaume1

listbox et combobox en delphi par romualdus

Tri numérique sur ListBox par f6dqm1

Comment inverser le tri d'une listbox ? par thonyboy

Tri d'une TListBox par l0sth34d2

Tri d'une listbox par l0sth34d2

N’autorise aucune touche, ds le Combobox par 810mcu

Combobox par hackeur13