Bonjour,
J'ai un petit soucis avec une fonction qui renvoi un TStringList, j'ai l'impression qu'elle ne renvoi rien alors que les fichiers sont bien trouvés.
Voici le code :
Le problème doit se trouver au niveau du Result mais je ne sais pas comment le résoudre
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 function GetListFiles(MyPattern:String):TStringList; var MySearch : TSearchRec; MyListe : TStringList; begin try MyListe := TStringList.Create; if FindFirst(MyPattern, faAnyFile, MySearch) = 0 then begin repeat MyListe.Add(MySearch.Name); until FindNext(MySearch) <> 0; FindClose(MySearch); end; Result := MyListe; MyListe.Free; except on E : Exception do begin MessageDlg(E.Message, mtError, [mbOK], 0); end; end; end; procedure TFPrincipale.FormCreate(Sender: TObject); begin Listbox2.Items.Assign(GetListFiles('.\Update\*.exe')); end;
Merci pour votre aide,
Mathieu
Partager