Discussion :

[cavicchia]

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

[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.

[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.

[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.

[droggo]

Kai,

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.

[Ralay]

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 :

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
 
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;

[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.