Discussion :

[cincap]

Bonjour à toutes et à tous,

Avec ce code, je réalise une commande en dos concernant le chemin d'un dossier bien spécifique.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Tmain.bsauverClick(Sender: TObject); 
var 
aCmdLine : PChar; 
begin 

aCmdLine := PChar(Eattrib.Text + Emodifier.Text ); 

ShellExecute(Handle, nil, 'CMD', aCmdLine, nil, sw_HIDE);
 
end;

Mais si dans le Tedit (Emodifier.Text) j'ai un nom de dossier avec un espace (test cincap et compagnie) cela ne fonctionne pas par contre si le nom est (testcincapetcompagnie) cela fonctionne.

N. B. pas de problème avec les accens à condition d'être un nom sans espace.

N'y a t'il pas une fonction pour parer à ce hic ?

Merci pour votre attention,

Cincap

[tourlourou]

regarde StrReplace, style : S:=StrReplace(S, ' ', ''; rfReplaceAll); qui remplacera tous les espaces de S par rien, donc les enlèvera

NB : je ne suis pas sûr du nom de la fonction... mais c'est l'esprit !

[alainvh]

Bonjour,
Si la fonction de Tourlourou, n'existe pas, il faut l'inventer
L'idée : parcourir le texte caractère par caractère et le réécrire caractère par caractère, sauf les espaces !
A plus

[Linkin]

En entourant la chaine de guillemets:

Code :

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

1
2
 
"C:\Documents and Settings\"

[Cl@udius]

Salut

La fonction a laquelle fait référence Tourlourou existe et s'appelle StringReplace (de SysUtils).

Mais la solution est bien celle proposée par Linkin: ajouter des guillemets.

@+ Claudius.

[cincap]

En effet après des nombreux essais, Cirec m'avait mis sur la voie avec ses excellents conseils.

Le membre Linkin avait aussi vu juste.

Merci à toutes et à tous pour votre temps à la disposition des autres,

@+,

Cincap