Discussion :

[pierrot67]

Bonjour

j'ai récupéré ce script pour supprimer un répertoire non vide mais j'ai une erreur dans delphi à la fin du code de mon application
avec ce message d'erreur : BEGIN attendu mais end. reçu à la ligne.... auriez vous une idée?

Merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm3.Suppressiondurpertoiretablette1Click(Sender: TObject);
function DelDir(Dir: String): Boolean;
var fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(Dir + #0);
  end;
  Result := (0=ShFileOperation(fos));
end;

[Roland Chastain]

Bonjour ! Qu'est-ce qui vous fait penser que c'est cette fonction qui provoque l'erreur ? A mon avis, il n'y a aucun rapport : l'erreur est ailleurs.

P.-S. Où est le corps de la procédure TForm3.SuppressionEtc() ? Où est l'appel de la fonction DelDir() ?

[SergioMaster]

Bonjour

Qu'est-ce qui vous fait penser que c'est cette fonction qui provoque l'erreur ?

si on a tout le corps de la procédure alors oui il manque quelque chose

A mon avis, il n'y a aucun rapport : l'erreur est ailleurs.

j'aime, lire cette phrase m'a tout de suite fait penser au générique de X Files

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
procedure TForm3.Suppressiondurpertoiretablette1Click(Sender: TObject);
function DelDir(Dir: String): Boolean;
var fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(Dir + #0);
  end;
  Result := (0=ShFileOperation(fos));
end;
begin // de la procédure
........
end; // de la procédure

[pierrot67]

Merci pour vos réponses j'ai trouvé une autre solution.

Bonne continuation.

[Charly910]

Bonjour Pierrot67,
ce serait sympa de dire laquelle, surtout pour ceux qui ont essayé de t'aider
A+
Charly