|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
TRI DANS LISTBOX/COMBOBOX (TSTRINGS)
Information sur la source
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
- // 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;
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
Sources de la même categorie
Sources en rapport avec celle ci
Commentaires et avis
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 <option> 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 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
N’autorise aucune touche, ds le Combobox [ par 810mcu ]
Y a-t-il un procéder qui peut Empêcher la saisie de n'importe quel touche du clavier dans un Combobox, <p class="MsoNormal" style="MARGIN:
Combobox [ par hackeur13 ]
Bonsoir a tous et a toutes;j'aimerais comprendre comment marche un combobox,car j'ai regarder quelque exemple mais le probleme c'est que je voudrais i
|
Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|