Discussion :

[b0rgy2K9]

Bonjour a tous,

Je suis debutant en Delphi, et je n'arrive pas a trouver un moyen de faire ce que je veux. En fait je demande a l'utilisateur de rentrer une phrase dans une textbox, et je voudrais detecter s'il y a des espaces dans la chaine de charactere et, si oui, ajouter des guillemets au debut et a la fin de la chaine. En gros je voudrais ca:

x = chaine de charactere
Si x contient un ou plusieurs espace ajouter un guillemet (") au debut et a la fin de la chaine.

Exemple:
'Patrick aime les poireaux' -> '"Patrick aime les poireaux"'

Voila, j'espere m'etre bien explique, merci !

[mick605]

Salut et bienvenue sur les forums de Developpez.com (je fais mon modo )

Alors, tu pourrais simplement te faire une boucle qui passe tout les caracteres, et qui renvoie true si un des caracteres est un espace.

Code :

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

1
2
for caractere:=1 to Length(x) do
  if x[Caractere]=' ' then Result:=true;

Mais, pour les malins (ou fainéants, ca dépends du point de vue ), on peut simplement chercher dans ta chaine avec la fonction Pos(SousChaine, Chaine)

Pos renvoie le numero du caractere a laquelle commence SousChaine dans Chaine (F1). S'il renvoie 0, c'est que la souschaine n'est pas dans ta chaine.

Donc

Code :

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

if Pos(' ',x)<>0 then X:='"'+x+'"';

Bonne chance !

[Andnotor]

S'il y a possibilité qu'il y en ait, ajoute les systématiquement. Ca évitera le test inverse au décodage.

Par exemple, un chemin écrit C:\ ou "C:\" est identique, avec ou sans espace

[b0rgy2K9]

merci beaucoup pour vos reponse, en plus j'ai trouve une methode encore plus facile, la fonction AnsiContainsStr(x, ' ') ! Merci encore