Tri dans listbox/combobox (tstrings)

Soyez le premier à donner votre avis sur cette source.

Vue 10 891 fois - Téléchargée 852 fois

Description

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 / Exemple :


// 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;

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_cantador
Messages postés
4996
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
9 -
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.
@+
cs_MAURICIO
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5 -
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+
cs_cantador
Messages postés
4996
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
9 -
Pour la méthode 1, je dirais le premier entier trouvé quelle que
soit sa position dans la chaîne.
cirec
Messages postés
4233
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 juillet 2019
32 -
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)
cs_MAURICIO
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5 -
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+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.