Virer les doublons des combobox [erreur inside]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Virer les doublons des combobox [erreur inside]

KrzAramis

Help Me

Salut à toutes et à tous,

Voila tout est dans le titre. J arrive pas à virer les doublons dans les comboboxes !
voici mon code:

Code :

procedure TForm_Main.FilCmbBx_01(Sender: TObject;
var Key: Char);
var iTag : integer;
strtemp : string;
//sub procedure that cleanse the TStrings from doubles
procedure DeleteDuplicates(TStrings_out : TStrings);
var TempList : TStrings;
begin
TempList := TStringList.Create;
try
TempList.AddStrings(TStrings_out);
TempList.Sorted := True;
TempList.Duplicates := dupIgnore;
finally
TempList.Free;
end;//try... finally
end;// deleteDuplicates
begin
iTag := 0;
if ord(key) = VK_RETURN then begin
iTag := (Sender as TFillcombobox).Tag;
// modified on the 14/11/2003
DeleteDuplicates(FFillCmb[iTag].Items);
end;//if
end;

ca suxx hard car j ai lu dans l aide que TStringList implemente une propriétée qui ignore les doublons mais ca ne marche pas la !

Antp HELP :cry:

@++

---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site

Publicité

antp

Super Administrateur
Champion des excuses bidons

Premier bug de ton truc : tu vires ta TempList et tu ne touches pas à TStrings_out qui n'est donc pas modifié.
Puis tu as dû mal lire l'aide :

Citation :

dupIgnore Ignore attempts to add duplicate strings to the
[...]
Set Duplicates before adding any strings to the list. Setting Duplicates to dupIgnore or dupError does nothing about duplicate strings that are already in the list.

En fait tu devrais le mettre à DupIgnore _avant_
(et peut-être mettre les chaînes une par une, ça ne sais pas)
Pour enlever les doubles ce que je ferais c'est trier la liste et ensuite la parcourir. Si la chaîne est la même que la précédente je la supprime (en faisant gaffe de le faire de n-1 à 0).
Je pense que pour juste virer les doublons la méthode de tout copier dans une liuste temporaire est fort lourde.

Message édité par antp le 14-11-2003 à 17:14:44

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

KrzAramis

Help Me

:cry:

je te separes jamais de ton baton hein ????
ok pour les commentaires mais le probleme c est que les proprietes "Sorted" et "Duplicates" ne sont pas reconnues.

Tu ne ferais comme ca???? comment alors? Doubles listes, comparaison et suppression des chaines deja trouvees? Si j ai bien compris l'aide (mais je suis fatigué la :whistle: ) la TStringList le fait toute seule comme une grande !

@++

---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site

KrzAramis

Help Me

Re,

évidement quand tu déclares TStringList c est tout de suite mieux :pt1cable: !

Code :

procedure TForm_Main.FilCmbBx_01(Sender: TObject;
var Key: Char);
var iTag : integer;
strtemp : string;
//sub procedure that cleanse the TStrings from doubles
procedure DeleteDuplicates(TStrings_out : TStrings);
var TempList : TStringList;
begin
TempList := TStringList.Create;
try
TempList.Sorted := True;
TempList.Duplicates := dupIgnore;
TempList.AddStrings(TStrings_out);
TStrings_out.clear;
TStrings_out.addstrings(TempList);
finally
TempList.Free;
end;//try... finally
end;// deleteDuplicates
begin
iTag := 0;
if ord(key) = VK_RETURN then begin
iTag := (Sender as TFillcombobox).Tag;
// modified on the 14/11/2003
DeleteDuplicates(FFillCmb[iTag].Items);
end;//if
end;

@++

Message édité par KrzAramis le 14-11-2003 à 17:27:48

---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site

antp

Super Administrateur
Champion des excuses bidons

krzAramis a écrit :

Si j ai bien compris l'aide (mais je suis fatigué la :whistle: ) la TStringList le fait toute seule comme une grande !

C'est utile si tu ajoutes de temps en temps des chaînes ; mais pour virer tous les doubles c'est un peu inutile je pense, autant faire une petite boucle comme je l'ai expliqué : ça évite de faire une seconde liste temporaire, et niveau code produit c'est plus léger (quand tu copies tes chaînes de l'une dans l'autre, j'imagine qu'à chaque insertion il regarde si la chaîne existe).

Message édité par antp le 14-11-2003 à 17:29:52

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

KrzAramis

Help Me

C est exact (cf insertion).
Ok je vais repenser ma procedure .... arf je pensais que ca serai bien comme code [:huit] . Quel dommage.

Bon la il faut que je vire le beep lorsque l utilisateur appuye sur 'Entrée' parce que ca me soule !

@++

---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site

FORUM HardWare.fr

Programmation

Delphi/Pascal

Virer les doublons des combobox [erreur inside]

Sujets relatifs
virer les espaces apres une chaine ......	Envoie de mails: Erreur 550 Rejected by final destination
Code d'erreur	perl et balisage: un algo? (xml inside)
[VB] problème erreur HELP	erreur exécution...
[CSS2] Erreur d'affichage (corrigé)	[VB.NET] pointer la valeur de inputbox vers combobox
erreur inconnue	[vbscript]erreur de chemin avec shell.run
Plus de sujets relatifs à : Virer les doublons des combobox [erreur inside]

Page générée en 0.052 secondes