Discussion :

[stfanny31]

Salem
j'utise des combo dans les quelle y'a des nom
mais je veux que utilisateur choisisse a chaque fois un nom différent
j'ai décidé de :
a chaque fois que l'utilisateur choisie un nom ,les autre combo le soustracte de leur .items
d'ou :
combo1.Items:=combo1.Items-combo2.text;
erreur :TSTRING /STRING
j'airais savoir si c'est la bonne méthode ou pas

[ShaiLeTroll]

Faut pas non plus inventer n'importe quoi !
Lit donc l'aide du TStrings avant d'écrire des absurdités !

IndexOf et Delete !

Avant de poster, lit l'Aide, je sais c'est pénible ! mais moi aussi j'ai été débutant, je passais autant de temps voire plus à lire l'aide qu'à écrire du code ! C'est le métier qui entre !
Tu as deux solutions :
- Lire l'aide et t'améliorer
- Ne pas lire l'aide et changer de métier !

[stfanny31]

peut-être que pour vous c'est des absurdités
mais pour moi c'est une idée que j'exploite
c'est pas la bible que je suis entrain d'écrire
j'ai demandé de l'aide pas un blâme

[Charly910]

Bonjour,

TStrings est une liste de chaine et String est une chaine.

ce sont deux entités de natures différentes. Tu ne peux donc pas les soustraire.

il faut que tu élimines la chaine dans ta liste de chaine si elle y est déjà. tu dois donc tester si tu la trouves, puis ne pas l'ajouter si elle existe.

@+
Charly

[ShaiLeTroll]

peut-être que pour vous c'est des absurdités
mais pour moi c'est une idée que j'exploite

Apprendre la programmation, c'est comme apprendre une nouvelle langue !
Ce n'est pas en collant des mots les un derrières les autres que cela voudra dire quelque chose !
Non ! Il faut respecter une grammaire, une construction des phrases ... !
Idem pour le Delphi, tu dois apprendre la grammaire, l'imbrication des objets entre eux ...

j'ai demandé de l'aide pas un blâme

Je t'ai donné de l'aide, je t'ai fourni les mots clés et les liens vers l'aide !

Sinon la réponse était dans le titre de ton sujet "Supression d'items combo" en anglais "Deletion of items combo", qui ressemble drôlement à "Combo.Items.Delete()"
Cela demande juste un petit effort de traduction, ensuite avec un peu imagination et de volonté, cela se trouve !

C'est ce réflexe que je voudrais que tu acquiers, allez d'abord vers l'aide !
Regarde chaque élément, les types, les classes ! Pour chacun allez lire l'aide !
Une grosse partie du métier d'informaticiens c'est de savoir trouver l’information, de lire des documentations techniques...

Extrait de E2010: Types incompatibles : '%s' et '%s' (Delphi)

La solution ... - en général, vous devez regarder attentivement votre programme pour décider comment résoudre les incompatibilités de type.

CQFD !


C'est ce simple effort que l'on demande, tu es débutante, je sais ce que c'est, je l'ai été, je tapais à deux doigts quand j'ai commencé le Delphi, je prenais mon temps, je lisais l'aide, pour la TStrings, c'est justement LA première classe que j'ai vraiment étudié, j'ai regardé chaque propriété, une par une ! Fastidieux mais très formateur !

[stfanny31]

merci a vous 'ShaiLeTroll' promis je vais faire plus d'effort
merci a vous 'Charly910' pour l'idé je vais l'exploiter et voir

[stfanny31]

j'ai enfin trouvé comment supprimer un élément

Code :

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

1
2
Edit.Text:=inttostr(combo4.Items.IndexOf(combo4.Text));
Comboreel.items.Delete (strtoint(Edit.Text));

mais le .Delete supprime que un seul élément
et si en essaye de supprimer plusieurs élément l'un après l'autre

Code :

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

1
2
3
4
Edit.Text:=inttostr(combo4.Items.IndexOf(combo4.Text));
Edit2.Text:=inttostr(combo2.Items.IndexOf(combo2.Text));
Comboreel.items.Delete (strtoint(Edit.Text));
Comboreel.items.Delete (strtoint(Edit2.Text));

les items sont reclasser et en supprime d'autre élément (pas ceux qu'on vouler supprimer)

j'ai lu que en pouvez garder le ( Comboreel.items.Count )fixe méme quant en supprime un élément !!
je suis sur cette piste si vous avez d'autre idée

[BuzzLeclaire]

j'ai enfin trouvé comment supprimer un élément

Code :

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

1
2
Edit.Text:=inttostr(combo4.Items.IndexOf(combo4.Text));
Comboreel.items.Delete (strtoint(Edit.Text));

mais le .Delete supprime que un seul élément
et si en essaye de supprimer plusieurs élément l'un après l'autre

Code :

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

1
2
3
4
Edit.Text:=inttostr(combo4.Items.IndexOf(combo4.Text));
Edit2.Text:=inttostr(combo2.Items.IndexOf(combo2.Text));
Comboreel.items.Delete (strtoint(Edit.Text));
Comboreel.items.Delete (strtoint(Edit2.Text));

les items sont reclasser et en supprime d'autre élément

(pas ceux qu'on vouler supprimer)

Vous êtes plusieurs ???

Bref je suppose que dans combo1 et combo2 il y a des choses différentes et que comboreel réuni les deux et lorsque tu supprimes dans combo1 ou combo2 ton comboreel doit se mettre à jour ?

Code :

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

1
2
3
4
5
 
Edit.Text:=inttostr(combo4.Items.IndexOf(combo4.Text));
Edit2.Text:=inttostr(combo2.Items.IndexOf(combo2.Text));
Comboreel.items.Delete(Comboreel.Items.IndexOf(Edit.Text));
Comboreel.items.Delete(Comboreel.Items.IndexOf(Edit2.Text));

On pourrais faire plus propre encore faudrait-il savoir l'objet de ta demande

[stfanny31]

a force de ce parler a soit même ,j'ai l'imresssion d'etre plusieurs
bon en bref voici mon sujet :

j'ai :10 combo identique avec les même élément
mais :chaque combo dois avoir une valeur différente

c'"est pour cela que j'ai essaye de supprimer les items et ne pas laisser le choix a l'utilisateur

[BuzzLeclaire]

j'ai :10 combo identique avec les même élément

mais :chaque combo dois avoir une valeur différente

Hummm la je crois que tu doit être habiter par un être suppreme....

tu peux vraiment t'expliquer ?? donne un exemple parceque, les choses identiques avec valeurs différentes, j'en perds mon latin !!!

Si tu en as 10 d'identiques et que tu veux retirer les différents... vident les tu iras plus vite...

[Caribensila]

a force de ce parler a soit même ,j'ai l'imresssion d'etre plusieurs

C'est bien de conserver ton sens de l'humour!
Programmer sérieusement n'est pas programmer en faisant la gueule.


Bon ! Si j'ai bien compris...
J'ai l'impression que tu te heurtes à un problème de conception et que TComboBox n'est pas adapté à ce que tu veux faire. Peut-être qu'une simple TListBox serait bien mieux adaptée.

C'est facile à vérifier :

- Colle une ListBox sur ta fiche (en général, juste à gauche de la Combo dans la palette de composants).
- Dans l'Inspecteur d'objets, tu renseignes la TStrings avec la propriété Items, et tu mets MultiSelect à True.
- Tu compiles (F9), et tu sélectionnes des Items en essayant de les cocher en appuyant en même temps sur la touche Ctrl, puis sans, puis Maj, etc... ( ça devrait te rappeler quelque chose ;-)

Puis dis-nous si cela ne répond pas mieux à ton problème que d'utiliser dix Combos...

[stfanny31]

Programmer sérieusement n'est pas programmer en faisant la gueule.

merci a vous pour cette idée

Puis dis-nous si cela ne répond pas mieux à ton problème que d'utiliser dix Combos...

c'est pas l'aspect que je veux avoir
j'ai des nom de ville et l'utilisateur doit choisir
ville 1 :='Oran'
ville 2:= 'Paris'
mais il ne peut pas choisir la même ville 2fois

[BuzzLeclaire]

merci a vous pour cette idée

c'est pas l'aspect que je veux avoir
j'ai des nom de ville et l'utilisateur doit choisir
ville 1 :='Oran'
ville 2:= 'Paris'
mais il ne peut pas choisir la même ville 2fois

ça y est j'ai compris... désolé.

Moi ce que je ferais,

1) tu affiches le combo1 avec toutes les villes accessibles, les autres combos doivent être vides
2) lorsque l'utilisateur clique sur une des villes du combo1 :
* Tu vides le combo2, combo3, combo4, combo5, etc... (même si ils sont déjà vides) combo2.Clear, combo3.Clear, combo4.Clear
* Tu copie l'intégralité du combo1 dans ce combo2 en retirant la ville sèlectionné du combo1 (combo2.Items.Add() en bouclant sur combo1
3) l'utilisateur clique sur une ville tu combo2
* Tu vides le combo3, combo4, combo5, etc... (même si ils sont déjà vides) combo3.Clear, etc...
* Tu copies l'intégralité du combo2 dans ce combo3 en retirant la ville sèlectionné du combo2

et ainsi de suite..., n'oublie pas de vider les combos suivant dés le choix de l'user du combo1 ou 2 etc...

ainsi tu auras la bonne sélèction..

A toi de jouer.

[Caribensila]

ça y est j'ai compris... désolé.

Bin dis-donc, Buzz, t'es moins bouché que moi !

@stfanny31
Si ce n'est pas ça que tu veux faire, je mange le casque de Buzz :

- 2 Combos et 1 button sur une fiche plus ce code :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ComboBox1 : TComboBox;
    ComboBox2 : TComboBox;
    btnReset  : TButton;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure ComboBox2Select(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
  var i : Char;
  begin
  ComboBox1.Style  := csSimple;
  ComboBox1.Height :=  250;
  ComboBox1.Sorted := true;
  ComboBox2.Style  := csSimple;
  ComboBox2.Height :=  250;
  ComboBox2.Sorted := true;
  for i := 'A' to 'N' do ComboBox1.Items.Add(Format('Ville %s', [i]));
end;
 
{ Fait passer la string sélectionnée de ComboBox1 vers ComboBox2: }
procedure TForm1.ComboBox1Select(Sender: TObject);
  begin
  ComboBox2.AddItem(ComboBox1.Text,nil);
  ComboBox1.DeleteSelected;
end;
 
{ Pour pouvoir revenir sur un choix précédent: }
procedure TForm1.ComboBox2Select(Sender: TObject);
  begin
  ComboBox1.AddItem(ComboBox2.Text,nil);
  ComboBox2.DeleteSelected;
end;
 
{ Réinitialise les listes: }
procedure TForm1.btnResetClick(Sender: TObject);
  begin
  ComboBox1.Items.AddStrings(ComboBox2.Items);
  ComboBox2.Clear;
end;
 
END.

[stfanny31]

Merci a vous mais j'au rencontré quelque difficulté :

* Tu copie l'intégralité du combo1 dans ce combo2 en retirant la ville sèlectionné du combo1 (combo2.Items.Add() en bouclant sur combo1
3) l'utilisateur clique sur une ville tu combo2

ComboBox2.AddItem(ComboBox1.Text,nil);
ComboBox1.DeleteSelected;

les deux procédure ne marche pas dans delphi5

[BuzzLeclaire]

Merci a vous mais j'au rencontré quelque difficulté :



les deux procédure ne marche pas dans delphi5

Allez un peu de code

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
// on vide tous les combos et on initialize le combo1 avec tous ses items
Procedure TForm1.initialiseCombo;
begin
  With Combo1 do
  begin
    Items.Add('Paris');
    Items.Add('Lyon');
    Items.Add('Marseille');
    Items.Add('Lille');
    Items.Add('Bordeau');
    Items.Add('Strasbourg');
  end;
  Combo2.Items.Clear; Combo2.enabled := False;
  Combo3.Items.Clear; Combo3.enabled := False;
  Combo4.Items.Clear; Combo4.enabled := False;
  Combo5.Items.Clear; Combo5.enabled := False;
end;
 
// On choisie une ville du combo1
Procedure TForm1.Combo1OnChange(Sender);
begin
  Combo2.Items := Combo1.Items;
  Combo2.Items.Delete(Combo2.Items.IndexOf(Combo1.Items.Strings[Combo1.ItemIndex ] )); // On retire l'item du combo1
  Combo2.itemIndex = -1; // Rien de sélectionner par défaut
  Combo2.enabled := True; // on donne accès au combo2
end;
 
// On choisie une ville du combo2
Procedure TForm1.Combo2OnChange(Sender);
begin
  Combo3.Items := Combo2.Items;
  Combo3.Items.Delete(Combo3.Items.IndexOf(Combo2.Items.Strings[Combo2.ItemIndex ] )); // On retire l'item du combo2
  Combo3.itemIndex = -1; // Rien de sélectionner par défaut
  Combo3.enabled := True; // on donne accès au combo3
  Combo1.Enabled := False; // On empeche de revenir sur le combo1
end;
 
// On choisie une ville du combo3
Procedure TForm1.Combo3OnChange(Sender);
begin
  Combo4.Items := Combo3.Items;
  Combo4.Items.Delete(Combo4.Items.IndexOf(Combo3.Items.Strings[Combo3.ItemIndex ] )); // On retire l'item du combo2
  Combo4.itemIndex = -1; // Rien de sélectionner par défaut
  Combo4.enabled := True; // on donne accès au combo4
  Combo2.Enabled := False; // On empeche de revenir sur le combo2
end;
 
// etc...

Il faut que tu mette un bouton genre [ERAZE] pour qu'on puisse recommencé depuis le début

Code :

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

1
2
3
4
5
 
Procedure TForm1.ErazeOnclick(sender)
begin
   initialiseCombo;
end;

Mais honnetement serrai vachement mieux avec un ListBox...

@+