DeleteFile et RenameFile

Version imprimable

Bonjour,

j'ai cette procédure, mais il ne se passe rien au niveau "deleteFile et renameFile" ??

Code:

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
procedure Tmaj.btSUPPClick(Sender: TObject);
var
lig:integer;
tir1:string;
lotopro: file of typeloto;
begin
tir:= ExtractFilePath(Application.ExeName) + 'LOTO.del';
AssignFile(loto,tir);
Reset(loto);
tir1:= ExtractFilePath(Application.ExeName) + 'prov.del';
AssignFile(lotopro,tir1);
ReWrite(lotopro);
 
lig:=StrToInt(TXTlig.text);
 
      While not EOF(loto) do
      begin
         read(loto,enregloto);
         if enregloto.tirage<>lig then write(lotopro,enregloto);
      end;
 DeleteFile(tir);
 RenameFile(tir1, tir);
 
 totaux;
 affiche;
end;//procédure

Les variables tir et loto sont définies pour être accessibles dans toute l'appli
Cette procédure est prévue pour supprimer un enregistrement du fichier

26/02/2007, 16h43
michel71

désolé j'ai "double" le code !!!

PS de Waskol : no problemo (tu as un bouton "editer" , en bas à droite de ton message, pour modifier quand tu t'es trompé);)
26/02/2007, 17h30
Eric Boisvert
Rename et DeleteFile ne fonctionne pas car les fichiers sont ouvert...
par toi avec AssignFile....
Code:

1 2 CloseFile(tir); CloseFile(tir1);
à mettre avant delete et rename.
26/02/2007, 22h46
aissat kam

salut

telecharger la bibliotheque des composant ShellHock, elle contien des composant qui vous facilite les operations renomer,supprimer, deplacer, copier, racourcis et.....