Discussion :

[cincap]

Bonjour à toutes et à tous,

Avec ce code, je sais sauvegarder l'item cliqué sur un TListBox dans un dossier prédéfini, je ne peux utiliser le "SaveToFile".

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
 
Filename := lbFiles.Items[lbFiles.ItemIndex];
 
  sd1.InitialDir := chappli + 'Tempcab';
 
  sd1.FileName := lbfichier.Caption;
 
  if not sd1.Execute then exit
  else begin
 
    FExtracting := true;
 
    Cabex.Extract(edFilename.Text, @Filename);
 
    FExtracting := false;
end;

Est t'il envisageable de me passer du TSaveDialog ?

En vous remerciant.

@+,

Cincap

[Bernard B]

TSaveDialog ne sert pas à enregistrer le fichier, il sert simplement à choisir ,le répertoire de destination et le nom du fichier, éventuellement en canalisant l'utilisateur en fonction des différentes options activées ou désactivées.
Donc pas de soucis pour faire sans !

[cincap]

@ Bernard B, merci pour ton intervention.

Code :

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

1
2
 
SetCurrentDir(chappli +'Tempcab');

@+,

Cincap