Discussion :

[NapsterVB]

salut ,
j'aimerais bien d'etre aidez a faire ceci
dans cet example de donnée ou je veut le trié par ordre et supprimer les memes lignes .
4245A04233638D
A35EF91185309D
31255294EF2B3B
43A213A385FE48
43A213A385FE48
DC9824826969B0

et merci d'avance

[slimjoe]

Salut!

J'aurai besion de plus de détails stp... Il s'agit d'enregistrements dans une table ? Quel SGDB ?

Merci!

[Kaféine]

tu peux utiliser une TStringList pour cela.

[aityahia]

c'est TListBox

on peut faire une petit procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Procedure SupDouble(List:TListBox);
 Var S :TStringList;
     I,NbrItem:Integer;
Begin
NbrItem:=List.items.Count;
if NbrItem <> 0 Then
begin
S:=TStringList.Create;
S.Clear;
For I := 0 to NbrItem-1 do
   if S.IndexOf(List.Items[I])=-1 Then
      S.Add(List.Items[I]);
      List.Items.Clear;
     List.Items.Assign(S);
    S.Free;
end;

vous entrer votres listBox en paramètres

[NapsterVB]

salut ,
merci pour le probleme est regler .
merci beaucoup .

[MelkInarian]

Bonjour,
Je suis quasi débutant et j'aimerais avoir des éclaircissements sur ce code.

c'est TListBox
on peut faire une petit procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Procedure SupDouble(List:TListBox);
 Var S :TStringList;
     I,NbrItem:Integer;
Begin
NbrItem:=List.items.Count;
if NbrItem <> 0 Then
begin
S:=TStringList.Create;
S.Clear;
...

J'ai déjà remarqué çà dans d'autres codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
S:=TStringList.Create;
S.Clear;

Lors de la création est-il nécessaire de "vider" un TSringList et pourquoi?

Merci d'éclairer ma lanterne.

[sjrd]

Lors de la création est-il nécessaire de "vider" un TSringList et pourquoi?

Non c'est purement et simplement inutile

[aityahia]

Bonjour,
Je suis quasi débutant et j'aimerais avoir des éclaircissements sur ce code.
J'ai déjà remarqué çà dans d'autres codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
S:=TStringList.Create;
S.Clear;

Lors de la création est-il nécessaire de "vider" un TSringList et pourquoi?

Merci d'éclairer ma lanterne.

c'est une vielle bonne habitude qui ne cout rien, c'est pas nécéssaire mais, pour les autres variable on risque gros si on oublie de d'initiliser une variable.

[MelkInarian]

c'est une vielle bonne habitude qui ne cout rien, c'est pas nécéssaire mais, pour les autres variable on risque gros si on oublie de d'initiliser une variable.

Merci.
J'avais pris aussi cette habitude lorsque j'ai commencé à coder en GWBasic (c'est pas hier) et lors d'un post récent on m'a fait la remarque que Delphi initialisait automatiquement les variables.
Donc je me suis demandé si c'était <> pour les Tstringlist!
Maintenant votre réponse m'interpelle, dois-je recommencer à tout initialiser?

Melk

[aityahia]

c'est faux attention avec delphi surtout pour les variables numérique, je me suis déja retrouvez avec des valeurs dont je ne comprenai pas la provenance.

essai ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
 Var A : Integer;
begin
 ShowMessage(IntToStr(A));
 
end;

par contre si la variable est déclarer comme Public ou private elle est initilaiser a zéro.

[MelkInarian]

Merci encore aityahia je recommencerai donc à tout initialiser.