Discussion :

[bastion]

Bonjour;
y a t'il quelqu'un qui peut m'aider ;
voila je possede une fonction qui me sert à copier des repertoires
Exp:

Code :

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

 if CopyFolder('C:\APPLIC\MABASE' , 'C:\REPERTOIRE') then

mon probleme je n'arrive pas à donner la cible dans un Edit.Text
c'est a dire je remplace 'C:\REPERTOIRE' par le chemin qui est dand l'EDIT

[Cl@udius]

Salut

Il suffit de lire la propriété Text du TEdit et de la transmettre à ta fonction.
J'ai ajouté quelques petites vérifications avant d'effectuer la copie.

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
 
var
  DestFolder: string;
begin
  // Récupérer le text saisi dans le TEdit (supprimer les espaces inutiles)
  DestFolder := Trim(Edit1.Text);  
  // Supprimer l'éventuel dernier backslash
  DestFolder := ExcludeTrailingPathDelimiter(DestFolder);
  // Vérifier la présence de ce dossier
  if not DirectoryExists(DestFolder) then
  begin
    MessageDlg('Le dossier de destination n''existe pas !', mtWarning, [mbOK], 0);
    Exit;
  end;
  // Effectuer la copie
  if CopyFolder('C:\APPLIC\MABASE' , DestFolder) then
  begin
    // ...
  end;
end;

PS: Tout ceci n'a pas grand chose à voir avec les Bases de Données !

@+ Claudius

[aityahia]

Salut

Il suffit de lire la propriété Text du TEdit et de la transmettre à ta fonction.
J'ai ajouté quelques petites vérifications avant d'effectuer la copie.

@+ Claudius

je pense que le type PChar ou le WidString est mieux adapté pour la gestion des Path.

[evarisnea]

je pense que le type PChar ou le WidString est mieux adapté pour la gestion des Path.

pourquoi si je puis me permettre ?

[aityahia]

pourquoi si je puis me permettre ?

on peut facilement avoir des path qui dépassent les 255 C.

[Cl@udius]

on peut facilement avoir des path qui dépassent les 255 C.

Par défaut le mot clé string est interprété comme un AnsiString (directive {$H} activée par défaut) qui possède une longueur maxi de ~2^31 caractères.

Ce qui devrait suffire !

Dans le cas contraire (directive {$H} désactivée), string est interprétée comme un ShortString. Il suffit donc d'utiliser explicitement le bon type:

Code :

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

1
2
3
 
var
  DestFolder: AnsiString;

@+ Claudius