Discussion :

[michel71]

Bonjour,

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

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
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

[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é)

[Eric Boisvert]

Rename et DeleteFile ne fonctionne pas car les fichiers sont ouvert...
par toi avec AssignFile....

Code :

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

1
2
CloseFile(tir); 
CloseFile(tir1);

à mettre avant delete et rename.

[aissat kam]

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