Création d'une ListBox

Version imprimable

23/09/2008, 12h21
cavicchia

Création d'une ListBox

Bonjour,

J'ai encore un petit problème, j'ai dans le répertoire C:\, des fichiers txt que je dois mettre dans une listbox pour ensuite ne choisir un pour le passer comme paramètre dans mon programme. Avez vous une idée de comment je peux réaliser ceci? Car je ne vois vraiment pas comment je pourrais faire. Merci d'avance
23/09/2008, 13h11
Alcatîz

Bonjour,

Pourrais-tu préciser quel compilateur tu utilises, ainsi que s'il s'agit d'un programme GUI ou console ?

A priori, s'il s'agit d'un programme GUI, l'API Windows met à ta disposition un dialogue standard de choix de fichier. Tu peux faire une recherche avec le mot-clé GetOpenFileName.
23/09/2008, 15h57
cavicchia

Ben nous utilisons Delphi comme compilateur et j'utilise le pascal comme language. Je ne peux pas utiliser le opendialog car c'est pas une source pure, c'est pour un code perso, pour une demande d'un client.
23/09/2008, 17h36
ALT

Si tu as la licence Delphi, tu peux utiliser librement les objets fournis avec.

Maintenant, si l'exigence du client est d'avoir tous les sources, alors ça va être plus dur. À moins qu'il veuille simplement pouvoir compiler lui-même (pour une modif, par exemple) auquel cas l'usage des bibliothèques & objets de Delphi ne pose pas de souci.
23/09/2008, 18h05
droggo

Kai,

Citation:

Envoyé par cavicchia

Ben nous utilisons Delphi comme compilateur et j'utilise le pascal comme language. Je ne peux pas utiliser le opendialog car c'est pas une source pure, c'est pour un code perso, pour une demande d'un client.

Si tu y vas par là, tu ne devrais pas du tout utiliser la VCL, donc rien pour faire une interface.

Si tu utilises ne serait-ce qu'une TForm, il y a là un manque de cohérence.

J'ai trouvé ceci dans un tuto de chez developpez, c pour un combobox et non un listbox, via un table dans une base de données et non un répertoire, je me demande aussi comment doit on procéder pour un répertoire

Code:

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
 
procedure TForm1.Button2Click(Sender: TObject);
var StringList:TStrings;
var i:integer;
begin
 
MyQuery.SQL.Clear;
MyQuery.SQL.Add('SELECT personnel.ID_PERSONNEL, personnel.NOM_PERSONNEL FROM personnel');
MyQuery.Open;
Myquery.First;
StringList :=TStringList.Create;
try
    begin
        if enregCount(MyQuery)>0 then
        begin
            for i := 0 to enregCount(MyQuery)-1 do
            with StringList do
                begin
                  Add(MyQuery.Fields.Fields[0].AsString +' -- '+ MyQuery.Fields.Fields[1].AsString ) ;
                  Myquery.Next;
                end
        end
else
    begin
        with StringList do
        begin
            Add('Innexistant') ;
        end
    end;
 
end;
with ComboBox1 do
  begin
    Width :=150;
    Items.Assign(StringList);
    ItemIndex :=0;
  end;
  finally
  StringList.free;
end;
 
end;

09/10/2008, 14h46
ALT

Lis la doc. : elle t'expliquera comment utiliser ce genre de boîte de dialogue. Je l'ai fait jadis uniquement avec la doc. Delphi.
09/10/2008, 15h06
Linkin

Et un petit tour dans la FAQ sur la partie Gestion des fichiers?

(tu as une réponse là-bas avec une listbox pour le listage des fichiers du'n répertoire)