Discussion :

[defluc]

Bonjour,

J'ai créé une fonction qui me renvoie le nom d'un dossier ou du premier sous-dossier qui contient un fichier de nom donné.
Cette fonction fonctionne comme je peux le constater grâce à un point de suivi ou l'affichage du résultat par une instruction placée dans la fonction même.

Cependant, appelée dans une procédure, le résultat de la fonction est une chaîne vide.
Voici la fonction :

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
Function FindFirstDirWithFile(InitRoot, FileName : String) : String;
var
  FoundResult : TSearchRec;
  Dir: String;
begin
  Result := '';
  Dir := IncludeTrailingPathDelimiter(InitRoot);
  if FindFirst(Dir + FileName, FaAnyFile, FoundResult)= 0 then
  if (FoundResult.Attr and faDirectory = 0) then
    begin
      Result := Dir;
      SysUtils.FindClose(FoundResult);
MessageBox(0,PChar(Result),'CadaCom',MB_IconInformation);
      exit;
    end;
  SysUtils.FindClose(FoundResult);
  if FindFirst(Dir + '*', faDirectory, FoundResult)=0 then
    repeat
      if (FoundResult.Attr and faDirectory <>0) and (FoundResult.Name<>'.') and (FoundResult.Name<>'..') then
          FindFirstDirWithFile(Dir + FoundResult.FindData.cFileName, FileName);
    until FindNext(FoundResult) <> 0;
  SysUtils.FindClose(FoundResult);
end;

et la procédure appelante

Code :

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

1
2
3
4
5
6
7
8
9
procedure TMainForm.TestClick(Sender: TObject);
Var
  Msg, OutParcelPath, OutParcel : String;
begin
  OutParcelPath := 'D:\Cadastre\Matrice2017\';
  OutParcel := 'OUTPUT Parcels_*.xls*';
  msg := FindFirstDirWithFile(OutParcelPath, OutParcel);
  ShowMessage(Msg);
end;

D'où peut provenir cette anomalie ?

Cordialement,

[fbalien]

Bonjour

vous ne récupérez pas la valeur de l'appel récursif

[defluc]

Mais j'ai toujours procédé comme ça :

Code :

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

1
2
  Msg := FindFirstDirWithFile(OutParcelPath, OutParcel);  //  Msg intercepte la valeur de la procédure récursive
  ShowMessage(Msg);

[ShaiLeTroll]

J'ajouterais aussi un Exit pour l'arrêter dès que la fonction a trouvé quelque chose, pour traduire mes propos et ceux de fbalien
Faut aussi penser au Try Finally

Code :

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

1
2
3
4
5
6
7
8
9
10
  if System.SysUtils.FindFirst(..., sr) = 0 then
  begin
    try
      repeat
        I 
      until FindNext(sr) <> 0;
    finally
      System.SysUtils.FindClose(sr);
    end;
  end;

l'erreur c'est là

Code :

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

1
2
 
          Result := FindFirstDirWithFile(Dir + FoundResult.FindData.cFileName, FileName);

[Andnotor]

C'est à la ligne 20 qu'il manque un Result :=.
Et ce n'est pas l'élément du premier sous-répertoire qui sera retourné mais du dernier puisque tu n'interromps jamais la boucle.

[defluc]

Il y a des choses que je ne comprends pas du point de vue logique.
C'est bien la valeur affectée à Result avant le exit qui est renvoyée par la fonction et je ne vois donc pas la nécessité de l'instruction

Code :

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

          Result := FindFirstDirWithFile(Dir + FoundResult.Name, FileName);

Plutôt que simplement

Code :

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

          FindFirstDirWithFile(Dir + FoundResult.Name, FileName);

D'autre part, je constate en exécution pas à pas que le "exit" ne sort pas de la fonction et que le bloc Repeat se poursuit inutilement ce qui peut pénaliser le temps d'exécution si le dossier de départ comporte de nombreux dossiers avec sous-dossiers.
C'est donc intellectuellement insatisfait que je me contente du code allégé suivant :

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 FindFirstDirWithFile(InitRoot, FileName : String) : String;
var
  FoundResult : TSearchRec;
  Dir: String;
begin
  Result := '';
  Dir := IncludeTrailingPathDelimiter(InitRoot);
  if FindFirst(Dir + FileName, FaAnyFile, FoundResult) = 0 then
  if (FoundResult.Attr and faDirectory = 0) then Result := Dir;
  if FindFirst(Dir + '*', faDirectory, FoundResult) = 0 then
  begin
    Try
      Repeat
      if (FoundResult.Attr and faDirectory <> 0) and
         (FoundResult.Name <> '.') and (FoundResult.Name<>'..') then
          Result := FindFirstDirWithFile(Dir + FoundResult.Name, FileName);
      until FindNext(FoundResult) <> 0;
    Finally
      SysUtils.FindClose(FoundResult);
    end;
  end;
end;

En vous remerciant pour votre contribution

[Andnotor]

Tu appelles deux fois (ou plus) la même fonction FindFirstDirWithFile.

Code :

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

1
2
3
4
 
FindFirstDirWithFile
        ¦
        +-- FindFirstDirWithFile

Chaque appel a ses propres données sur la pile. La deuxième fonction doit donc retourner son résultat à la précédente.
Et Exit sort bien de la fonction en cours mais n'a aucune influence sur l'appelante.

Tu te fais gruger par le debugger qui te montre forcément toujours le même code

[SergioMaster]

Bonsoir,

j'aurais plutôt écrit ceci, encore que j'ai un doute

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 FindFirstDirWithFile(InitRoot, FileName : String) : String;
var
  FoundResult : TSearchRec;
  Dir: String;
begin
  Result := '';
  Dir := IncludeTrailingPathDelimiter(InitRoot);
  Try
    if FindFirst(Dir + FileName, FaAnyFile, FoundResult) = 0 then
        if (FoundResult.Attr and faDirectory = 0) then Result := Dir;
     else begin 
 
  if FindFirst(Dir + '*', faDirectory, FoundResult) = 0 then 
  begin
      Repeat
      if (FoundResult.Attr and faDirectory <> 0) and
         (FoundResult.Name <> '.') and (FoundResult.Name<>'..') then
             
            begin 
               Result := FindFirstDirWithFile(Dir + FoundResult.Name, FileName);
               Break;
             end;  
    until FindNext(FoundResult) <> 0;
    end; 
    Finally
      SysUtils.FindClose(FoundResult);
    end;
end;

[defluc]

Je lève le doute, SergioMaster.
Cela fonctionne.

Je marque la discussion comme résolue.

[Andnotor]

Code :

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

1
2
3
4
5
6
begin 
  Result := FindFirstDirWithFile(Dir + FoundResult.Name, FileName);
 
  if Result <> '' then
    Break;
end;