Discussion :

[MaTHieU_]

Bonjour,

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
 
var
     XML                 : TXMLDocument;
begin;
             // début d'une boucle...
	XML := TXMLDocument.Create(Self);
	try
		XML.Active := true;
	        XML.Version := '1.0';
        	XML.Encoding := 'ISO-8859-1';
	        XML.LoadFromFile(EChemin.Text + FichierXML);
        	with XML.ChildNodes.Nodes['xxx'].ChildNodes do
	        begin
			// xxxxx
		end;
		XML.Active := false;
	finally
		XML := nil;
	end;
	SysUtils.DeleteFile(EChemin.Text + FichierXML);
             // fin de la boucle
end;

Le problème que je rencontre, cest que le fichier n'est jamais supprimé, je ne comprends pas pourquoi...

Avez-vous une solution pour que je puisse effacer le fichier ?

Merci,
MaTHieU_

[Dry]

En procédent de la sorte peut-etre ?

Code :

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

1
2
3
4
finally
  //XML := nil; <-- Attention : ça ne détruit pas l'objet !!!
  FreeAndNil(XML);
end;

[MaTHieU_]

Bonjour,

J'ai effectué les modifications nécessaires mais le fichier n'est toujours pas supprimé.

Merci,
MaTHieU_

[SergioMaster]

le problème doit être que le fichier n'est pas ouvert en mode exclusif

[atb]

Bonjour ,
essayer avec ça :

Code :

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

1
2
DeleteFile(XML.FileName);
XML.free;

[MaTHieU_]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
6
 
                    XML.Active := false;
               finally
                    FreeAndNil(XML);
                    DeleteFile(EChemin.Text + FichierXML);
               end;

Mais le fichier semble pas libéré. Je ne comrpends pas...

Merci,
MaTHieU_