Discussion :

[sematimo]

bonjours à tous
j'ai une fonction qui liste les répertoires et sous répertoires et qui fonctionne très bien mais j'ai ces messages:

Compilation du projet - Cible : lib\x86_64-win64\Project2.exe : Succès - Avertissements : 4
Unit1.pas(59,46) Warning: Implicit string type conversion from "AnsiString" to "WideString"
Unit1.pas(59,73) Warning: Implicit string type conversion with potential data loss from "WideString" to "AnsiString"
Unit1.pas(65,32) Warning: Implicit string type conversion from "AnsiString" to "WideString"
Unit1.pas(65,59) Warning: Implicit string type conversion with potential data loss from "WideString" to "AnsiString"

voici mon code:

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
Function tform1.ListeFichiers(Chemin:String):boolean;
Var S:TSearchRec;
Begin
  Chemin:=IncludeTrailingPathDelimiter(Chemin);
  Result:=false;
  If FindFirst(Chemin+'*.*',faAnyFile,S)=0
  Then Begin
    Repeat
         if (S.Name<>'.')And(s.Name<>'..')//je saute le début
      Then Begin
        If (S.Attr And faDirectory)<>0 //si répertoire         
          Then ListeFichiers(Chemin+S.FindData.cFileName)   // je rappelle la fonction      
          Else
            begin
            listbox1.items.add(Chemin+S.FindData.cFileName);
            end;
      End;
    Until FindNext(S)<>0;
    FindClose(S);
  End;
result:=true;
End;

la fonction est appelée avec:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled:=False;
  Try
    ListeFichiers(Edit1.Text);
  Finally
    Button1.Enabled:=True;
  End;
end;

[Guesset]

Bonjour,

Les fonctions comme FindFirst et des structures comme TSearchRec manipulent des chaînes unicode (WideString) d'où les conversions implicites indiquées.

Salutations

[Roland Chastain]

Bonjour !

Sous Linux, votre code ne se compile pas : FindData est inconnu.

Donc j'ai fait les modifications suivantes :

Code :

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

1
2
3
4
          ListeFichiers(Chemin + {S.FindData.cFileName}S.Name)   // je rappelle la fonction
        else
        begin
          listbox1.items.add(Chemin + {S.FindData.cFileName}S.Name);

Et je n'ai aucun avertissement à la compilation. Vous pourriez essayer peut-être, pour voir ce que ça donne sous Windows ?

[BeanzMaster]

Hello pour t'aider avec la recherche de fichier, tu peux jeter un oeil sur un de mes codes https://github.com/jdelauney/BZScene...FileFinder.pas qui fonctionne sur Linux et Windows (et Mac normalement)

[sematimo]

Effectivement avec {S.FindData.cFileName} plus de message.

Code :

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

1
2
3
4
          ListeFichiers(Chemin + {S.FindData.cFileName}S.Name)   // je rappelle la fonction
        else
        begin
          listbox1.items.add(Chemin + {S.FindData.cFileName}S.Name);