Discussion :

[ptitemeuh]

Bonjour à tous !

Une p'tite question pour la forme ! Toujours sur mon projet, je souhaite supprimer un dossier qui contient des sous-dossiers, fichiers... Pour cela, j'ai une fonction qui me permet de faire ce que je souhaite mais malheureusement encore un petit hic:

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 Deltree(sDir : String) : Boolean;
var
     iIndex    : Integer;
     SearchRec : TSearchRec;
     sFileName : String;
begin
     //Result := False;
     sDir := sDir + '\*.*';
     iIndex := FindFirst(sDir, faAnyFile, SearchRec);
     while iIndex = 0 do
     begin
          sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
          if SearchRec.Attr = faDirectory then
          begin
               if (SearchRec.Name <> '' ) and
                         (SearchRec.Name <> '.') and
                         (SearchRec.Name <> '..') then
                    Deltree(sFileName);
          end else begin
               if SearchRec.Attr <> faArchive then
                    FileSetAttr(sFileName, faArchive);
               DeleteFile(sFileName);
          end;
          iIndex := FindNext(SearchRec);
     end;
     FindClose(SearchRec);
     RemoveDir(ExtractFileDir(sDir));
     Result := True;
end;

Lorsque j'appuie sur le speedbutton, la fonction est appelée, donc:

Code :

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

Deltree('C:\c');

J'obtiens un message d'erreur:
[Erreur] Unit1.pas(51): Déclaration forward ou external non satisfaite : 'TForm1.Deltree'

Qu'est-ce qu'il y a d'oublié ?

[tourlourou]

Tu as dû déclarer la fonction DelTree dans la déclaration de type de TForm1.

Or tu la codes comme une procédure isolée, non méthode d'objet.

Il suffit de corriger en sortant la déclaration de DelTree de TForm1, ou en préfixant comme ceci son implémentation :

Code :

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

Function TForm1.Deltree(sDir : String) : Boolean;

[Droïde Système7]

Bonjour,

Regarde pour des idées :

http://delphi.about.com/cs/adptips19...ltip1199_2.htm

@+

[ptitemeuh]

Merci Droïde Système7 pour ton lien

Aaahhh d'accord... Je viens de changer mais sur le code suivant:

Code :

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

Function TForm1.Deltree(sDir : String) : Boolean;

J'ai un message d'erreur '=' attendu mais '(' trouvé

[Droïde Système7]

Tourlourou était passé juste au dessus

Bon... juste au dessus de cette ligne : tout est OK ?

[ptitemeuh]

Re,

Je vois d'où vient mon erreur: je déclarais ma fonction comme les procédures dans les déclarations type au début du programme.

Encore merci pour vos informations précieuses avec toujours autant de rapidité Super forum YEAHHH !!

[cincap]

Bonjour à toutes et à tous,

@ ptitemeuh, tu dois avant tout tester si ton dossier existe, et ta fonction fonctionne très bien.

Mon test :

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
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Uses Shellapi;
 
Function Deltree(sDir : String) : Boolean;
var
     iIndex    : Integer;
     SearchRec : TSearchRec;
     sFileName : String;
begin
     //Result := False;
     sDir := sDir + '\*.*';
     iIndex := FindFirst(sDir, faAnyFile, SearchRec);
     while iIndex = 0 do
     begin
          sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
          if SearchRec.Attr = faDirectory then
          begin
               if (SearchRec.Name <> '' ) and
                         (SearchRec.Name <> '.') and
                         (SearchRec.Name <> '..') then
                    Deltree(sFileName);
          end else begin
               if SearchRec.Attr <> faArchive then
                    FileSetAttr(sFileName, faArchive);
               DeleteFile(sFileName);
          end;
          iIndex := FindNext(SearchRec);
     end;
     FindClose(SearchRec);
     RemoveDir(ExtractFileDir(sDir));
     Result := True;
end;

Utilisation :

Code :

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

1
2
3
4
5
6
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('C:\Data\Delphi\Effacer dossier\test') then exit else deltree('C:\Data\Delphi\Effacer dossier\test');
end;

Then exit ou showmessage('Ce dossier n''existe pas !');

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('C:\Data\Delphi\Effacer dossier\test') then begin
showmessage('Ce dossier n''existe pas !');
exit
end
else deltree('C:\Data\Delphi\Effacer dossier\test');
 
end;

@+,

Cincap