begin process at 2010 03 18 16:42:29
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Trucs & Astuces

 > TRI DANS LISTBOX/COMBOBOX (TSTRINGS)

TRI DANS LISTBOX/COMBOBOX (TSTRINGS)


 Information sur la source

Note :
Aucune note
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é :6 226 / 389

Auteur : MAURICIO

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
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-SU R-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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  •   Tri TStrings

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

Source avec une capture VOTRE PROGRAMME DE MAIL COMME CLIENT MAIL PAR DÉFAUT SOUS WI...
Source avec Zip Source avec une capture DEMO DE MON COMPO TCYWEBBROWSER - VISUALISER DES PAGES HTML ...
Source avec Zip Source avec une capture COMPOS TCYCOMPONENTS V2.62
Source avec Zip Source avec une capture JETTER LES MESSAGES DANS "MESSAGE QUEUE" APRÈS UN LONG CODE
LIBRAIRIE DE FONCTIONS DE GESTION DE SOUS-CHAINES.

 Sources de la même categorie

FONCTION DE CONVERSION DE MILLISECONDES EN HH:MM:SS:MMM par vyseR
Source avec Zip Source avec une capture UTILISER UNE DLL INCLUSE EN RESSOURCES par Bacterius
Source avec Zip Source avec une capture IMAGE DANS UN TDBGRID par HAFTARIFOUAD
Source avec Zip Source avec une capture [ASTUCE] COMMENT VOIR UN ITEM, D'UNE LISTBOX, TRONQUÉ DANS U... par cirec
Source avec Zip Source avec une capture MESSAGEDLG PERSONNALISÉ par HAFTARIFOUAD

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture [ASTUCE] COMMENT VOIR UN ITEM, D'UNE LISTBOX, TRONQUÉ DANS U... par cirec
Source avec Zip Source avec une capture STATUTILS - LES STATISTIQUES par Bacterius
Source avec Zip Source avec une capture COMPOSANT "LISTE DE CHOIX ORDONNÉS DEPUIS UNE LISTE TRIÉE" par jihelb
Source avec Zip Source avec une capture BARRE DE SÉLECTION GRAPHIQUE par asciidefond
TRI INVERSÉ DANS UNE TLISTBOX par japee

Commentaires et avis

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 dans le forum

éléments associés à une ListBox [ par gui_llaume1 ] bonjour, petite question : je voudrais pouvoir faire une liste genre ComboBox ou ListBox avec l'équivalent du 'value' des balises &lt;option&gt; du HT listbox et combobox en delphi [ par romualdus ] bonjour a tous, voici mon probleme,j'ai un listbox qui contient 10 elements et je souhaiterais les affectes 1 a 1 dans 10 edit&nbsp; differents(l'ordr Tri numérique sur ListBox [ par f6dqm1 ] Existe t'il une possibilité de tri numérique automatique sur une ListBox dont tous les items commencent par des chiffres ? La fonction sorted ne march Comment inverser le tri d'une listbox ? [ par thonyboy ] Bonjour,est t'il possible de changer l'ordre de tri d'un TListBox ?J'ai un TListBox avec la propriété Sorted a True. Les éléments sont triés de facon Tri d'une TListBox [ par l0sth34d2 ] Bonjour à tous!J'aimerais tout simplement savoir si c'est possible et si oui comment peut-on trier une ListBox selon l'ordre que l'on souhaite.Par exe Tri d'une listbox [ par l0sth34d2 ] Bonjour! C'est encore moi! Je reviens sur une question que j'avais déjà posé.. j'ai été redirigé vers une source d'une autre personne mais bon.. ça ne Question TListBox [ par Soran19 ] Bonjour à tous, tout dabord, je tiens à préciser que je suis nouveau et que c'est mon premier message sur le forum. Alors voilà, je dois programmer u listbox multiselection [ par zeydounnounou ] bonjour, Ma problématique est la suivante: j'ai une listBox multiselection dans ma fiche,plusieurs éléments dont affichés dedans. je veux que quand j'


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,343 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales