Discussion :

[The Ditch]

Bonjour,

J'aimerais faire une recherche sur l'extension des fichiers.

J'ai un formulaire avec des checkbox, lorsque que je coche un case cela fonctionne. La où ça se corse c'est a partir de 2.

Il me met dans ma variable que la dernier case que j'ai coché.

Voici ce que j'ai fait:

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
if ChBxLog.Checked then extension := '\*.log';
if ChBxTMP.Checked then extension := '\*.tmp';
if ChBxBAK.Checked then extension := '\*.bak';
 
if EdtScan.Text = ' '
     then MessageDlg('Aucun type de fichier na été sélectionné',mtError,[mbOK],0)
     else
       begin
    fileattrs := $0000003F;
    with FResultatInventaire.StringGridResultatInventaire do
      begin
        ShowMessage(extension);
        RowCount := 0;
        if FindFirst(FInventaire.EdtScan.Text + extension, FileAttrs, sr) = 0  then
           repeat
             if (sr.Attr and FileAttrs) = sr.Attr then
             begin
               RowCount := RowCount + 1;
               Cells[0,RowCount-1] := sr.Name;
               Cells[1,RowCount-1] := IntToStr(sr.Size);
               dt := FileDateToDateTime(sr.time);
               Cells[2,RowCount-1] := datetimetostr(dt);
             end;
           until FindNext(sr) <> 0;
        FindClose(sr);
      end;
end;

De plus dans mon code, je n'ai pas encore pas mis la récursivité. Il ne recherche que dans le répertoire courant. Il y a bien une FAQ sur ce sujet, lais je n'ai pas bien compris Si une âme charitable pouvais m'expliquer ce sera super.

Merci pour votre aide

[ouiouioui]

[CODE]if ChBxLog.Checked then extension := '\*.log';
if ChBxTMP.Checked then extension := '\*.tmp';
if ChBxBAK.Checked then extension := '\*.bak';

Normal, a chaque test tu écrase la valeur précédente.
Moi je créerai un array et ajouterai dedans si checked, et en bas je boucle findfirst findclose pour tester les valeur de l'array

[The Ditch]

Bonjour merci pour ton aide.

Je dois encore avoir un soucis dans 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TFInventaire.BtnAnalyseClick(Sender: TObject);
var sr                 : TSearchRec ;
    fileattrs,i,j      : integer ;
    dt                 : tdatetime;
    extension          : string;
    TabExtensionFiles  : array [1..3] of string [7];
 
begin
 
   if ChBxLog.Checked then TabExtensionFiles[1]:= ('\*.log');
   if ChBxTMP.Checked then TabExtensionFiles[2]:= ('\*.tmp');
   if ChBxBAK.Checked then TabExtensionFiles[3]:= ('\*.bak');
 
if EdtScan.Text = ' '
     then MessageDlg('Aucun type de fichier na été sélectionner',mtError,[mbOK],0)
     else
       begin
          fileattrs := $0000003F;
          j := 1;
          with FResultatInventaire.StringGridResultatInventaire do
            begin
              while j < 22 do
                   begin
                      RowCount := 0;
                      if FindFirst(FInventaire.EdtScan.Text + TabExtensionFiles[i], FileAttrs, sr) = 0  then
                         repeat
                           if (sr.Attr and FileAttrs) = sr.Attr then
                           begin
                             RowCount := RowCount + 1;
                             Cells[0,RowCount-1] := sr.Name;
                             Cells[1,RowCount-1] := IntToStr(sr.Size);
                             dt := FileDateToDateTime(sr.time);
                             Cells[2,RowCount-1] := datetimetostr(dt);
                           end;
                         until FindNext(sr) <> 0;
                      FindClose(sr);
                      j := j+1;
                   end;
            end;
end;

Si vous pouviez m'aiguiller; ce sera sympa. Je n'ai pas encore acquis la logique ...