Discussion :

[gadalla]

slt
jai volu ajouté des element dans un mais sa n'a pas marché
svp aider moi
merci d'avance

Code :

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

1
2
3
4
5
 
if DirectoryExists('C:\') then
    combobox1.AddItem('c:');
    if DirectoryExists('D:\') then
    combobox1.AddItem('D:');

[Pedro]

Salut
Ne serait-ce pas plutot:

Code :

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

1
2
 
ComoBox1.Items.Add('Truc');

[dd_garion]

ou encore

Code :

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

1
2
 
ComoBox1.AddItem('C:\',nil); //il te manquait un paramètre, car avec le additem, tu peux ajouter un objet dans le combo, mais je dois avouer que je ne vois pas trop à quoi ça sert :oops:

[gadalla]

jai utilisé cette méthode mais jai trouvé un erreur jamais vu


[Error] Unit1.pas(33): For loop control variable must have ordinal type

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
var
disk : string;
begin
 
    for disk := 'A' to 'Z' do
    if DirectoryExists(disk , ':\') then
        ComboBox1.Items.Add(disk ,':');
        end;
 
end;

[Pedro]

Ca vient de là:

Code :

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

1
2
 
for disk := 'A' to 'Z' do

On ne peut pas utiliser de caractères dans un For...

Sans vouloir te vexer, je te conseille vivement de consulter les cours proposés par developpez.com

[dd_garion]

Je rejoint Pedro lit les bases de programmation delphi, mais sinon essaies ceci :

Code :

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

1
2
3
4
5
 
   for i:= ord('A') to ord('Z') do
   begin  
     if DirectoryExists(char(i) + ':\') then
        ComboBox1.Items.Add(disk  + ':');

[droggo]

Hai,

Ca vient de là:

Code :

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

1
2
 
for disk := 'A' to 'Z' do

On ne peut pas utiliser de caractères dans un For...

Sans vouloir te vexer, je te conseille vivement de consulter les cours proposés par developpez.com

On peut très bien utiliser des caractères dans une boucle for :

Code :

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

1
2
3
4
5
6
...
var
  char c;
...
for c := 'a' to 'z' do
...

compile et marche très bien.

Le problème vient de la définition de disk:

Code :

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

1
2
var
disk : string;

et là, c'est interdit, car, comme le rappelle le message d'erreur

Code :

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

[Error] Unit1.pas(33): For loop control variable must have ordinal type

la variable servant à contrôler une boucle for doit être d'un type scalaire.