Discussion :

[looping]

bonsoir,

voici un bout de 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
23
24
25
26
27
28
29
30
31
32
33
34
 
procedure TForm5.Ajouter1Click(Sender: TObject);
begin
opendialog1.title:='Transfert fichier source';
opendialog1.InitialDir:='c:\';
 
if opendialog1.Execute then
begin
copyfile(Pchar(extractfilename(OpenDialog1.filename)),
PChar(pathnet + 'sources\' + extractfilename(OpenDialog1.filename)),
false);
 
renamefile(pathnet + 'sources\' + extractfilename(OpenDialog1.filename),
pathnet + 'sources\' + 'q' + inttostr(table1NR.value) +  '.pdf');
 
OpenDialog1.filename:='';
end;
 
end;
 
procedure TForm5.supprimer1Click(Sender: TObject);
begin
opendialog1.title:='Suppression fichier source';
opendialog1.InitialDir:=pathnet + 'sources\';
 
if opendialog1.Execute then
     begin
     if MessageDlg('Confirmez la suppression du fichier', mtConfirmation, [mbNo, mbOK], 0)=MrOK then
                       begin
                       deletefile(extractfilename(OpenDialog1.filename));
                       OpenDialog1.filename:='';
                       end;
     end;
end;

la première procedure sert à prendre un fichier du repertoire 'c:\' puis le transferer vers le repertoire 'pathnet\sources' et enfin à le renommer

la deuxième sert à supprimer un fichier de 'pathnet\sources'

d'un point de vue général, ces 2 procédures fonctionnent.
le petit probleme c'est qu'il doit y avoir une interférence entre elles car parfois les parametres

Code :

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

opendialog1.InitialDir:=pathnet + 'sources\'

pour une et

Code :

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

opendialog1.InitialDir:='c:\

pour l'autre ne sont pas toujours (ca fonctionne toujours la première fois) pris en compte.

j'ai essayé en mettant

Code :

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

OpenDialog1.filename:='';

à la fin de chaque procedure mais c'est pareil: le parametre 'opendialog1.initialdir' n'est pas toujours pris en compte quand j'enchaine c'est 2 procedures.


merci

[banban54]

bonsoir

le problème a déjà été soulevé ici

à+