Discussion :

[tarmo57]

Salut tous j'ai un petit probleme avec un combobox et un listbox
j'aimerais si possible alimenté mon listbox avec la sélection que je fais dans ma liste déroulante combobox que j'aliment avec un fichier texte.
j'aimerais si possible sélectionné un nom dans mon combobox et qu'il s'affiche dans mon listbox et pouvoir sélectionne un autre nom pour qu'il s affiche à la suite de mon listbox.
Mon code actuelle .

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
procedure test.ComboBox1Click(Sender: TObject);
var
Stg:string;
F: TextFile;
 
begin
 
Stg:=ComboBox1.Text;
	ListBox1.Items.Add(Stg);
 
begin
 
Stg:=ComboBox1.Text;
AssignFile(F,'maliste.txt');
Append(F);
Writeln(F,Stg);
CloseFile(F);
 
ListBox1.Items.LoadFromFile('maliste.txt');
Reset(F);
repeat  
Readln(F,Stg); 
ListBox1.Items.LoadFromFile('maliste.txt');
until EOF(F);
CloseFile(F);
 
end;
end;

Mais la avec ce code il m'affiche tous le contenu de mon cobombox dans mon listbox
comment faire pour n'avoir que le nom sélectionne ?
Merci d'avance

[tarmo57]

encore moi j'ai peut être trouver encore plus simple un combobox et un memo avec le code la

Code :

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

1
2
3
4
var i : Integer;
begin
i := ComboBox1.ItemIndex;
Memo1.Text := ComboBox1.Items.Strings[i];

il affiche la sélection mais le problème uniquement un nom j'aimerais plusieurs
possible ?

Merci d'avance

[BuzzLeclaire]

encore moi j'ai peut être trouver encore plus simple un combobox et un memo avec le code la

Code :

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

1
2
3
4
var i : Integer;
begin
i := ComboBox1.ItemIndex;
Memo1.Text := ComboBox1.Items.Strings[i];

il affiche la sélection mais le problème uniquement un nom j'aimerais plusieurs
possible ?

Merci d'avance

@ salut

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var i : Integer;
Separateur : String;
begin
 
separateur := #13 + #10;
if Memo1.text = '' then separateur := '';
 
i := ComboBox1.ItemIndex;
Memo1.Text := Memo1.text + separateur + ComboBox1.Items.Strings[i];

[tarmo57]

Trop fort BuzzLeclaire grand merci

[archonte]

Où bien en utilisant la propriété Lines de type TStrings :

Code :

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

1
2
3
4
5
Memo1.Lines.Add(ComboBox1.Items[ComboBox1.ItemIndex]);
{
A noter que Strings est la propriété par défaut de Items donc
ComboBox.Items[i] <=> ComboBox.Items.Strings[i] 
}