SNIPPETS

Résolu
Signaler
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
Bonjour,

j'emets des messages depuis hier concernant les sinppets

comme je n'ai pas de réponse je mets ici les codes que j'ai proposé :

pour  [http://www.codyx.org/snippet_supprimer-doublons-combobox_374.aspx Supprimer les doublons d'un combobox [Delphi 5]], j'ai proposé une variante :

Autre méthode en utilisant uniquement le Combobox :

<hr align="left" />

var

i:integer;
begin
for i:= combobox1.Items.Count-1 downto 1 do if ComboBox1.Items.IndexOf(ComboBox1.Items.Strings[i])end;

<hr align="left" />

Ainsi on peut garder l'ordre d'origine des items.

Si on veut classer par ordre alphabétique : il suffit de mettre la propriété "Sorted" du Combobox1 à true (ou mettre Combobox1.Sorted:=True)

J'ai mis "downto 1" (et pas "downto 0") car l'item "0" n'a pas besoin d'être traité

Pour les puristes une boucle "try" peut être rajoutée.
Toutefois le code ne coince pas même s'il n'y a aucun item dans le Combobox.

Le même raisonnement peut être utilisé pour l'élimination de doublons dans une liste d'éléments (TStringlist par exemple) en gardant l'ordre d'origine (càd qu'on enlève les "Add" supplémentaires supposés avoir été rajoutés ultérieurement)

Pour  [http://www.codyx.org/snippet_1ere-lettre-majuscule-propertcase-pcase_111.aspx 1ère lettre en Majuscule ( PropertCase ( PCase ) ) [Delphi 5]] j'avais proposé 2 solutions :

function UpperFirstChar (s:string):string;
begin
     if s<> '' then s[1]:=AnsiUpperCase(s[1])[1];
     result:=s;
end;function UpperFirstChar (s:string):string;
begin
     if s<>'' then CharUpperBuff(@s[1],1);
     result:=s;
end;

voilà,

DrJerome

3 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,
contrairement aux codes, les snippets doivent être activés par un admin avant d'être visibles

inutile donc de poster 4 fois, il faut être patient.
ou se résigner ^^
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
Salut,

Après une légère optimisation, cet intéressant snippet a été activé.
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

Salut,

no problem

plates excuses ;)

DrJerome