probleme d'espace avec une "var" :-(

bonsoir a tous,
voila j'ai un petit probleme avec une varible (enfin je pense).

donc, je suis sur la réalisation d'un petit soft, qui a pour bute
de sauvegarder les mots clé pour une recherche sur google.

donc ajouter/suprimer des mots/thermes enregistré dans un tcombobox.

donc le probleme est que quand je clic sur recherche qui
m'ouvre une page explorer avec google, les mots recherché
sont tout collé entre eu :-( les espace inclu ne sont plus la !!!

je vous indique mon script :

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Button1Click(Sender: TObject); Var lien,adresse:String; begin lien:=(ComboBox1.Text); adresse:='http://www.google.fr/search?q='+lien+'&btnG=Search'; ShellExecute(0,'OPEN',PChar(adresse), Nil, Nil, SW_SHOW); end;

---

que pensez vous de cette erreur ???
moi je veut retrouver les espace includ

Salut :D
Tu peux faire comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button1Click(Sender: TObject); Var lien,adresse:String; i : integer; begin lien:=''; For i := 0 to ComboBox1.Items.Count-1 do lien := lien +' '+ ComBoBox1.Items[i];//ajoute chaque item à la suite en insérant un espace Trim(Lien);//E,nlève les espaces à la fin et au début adresse:='http://www.google.fr/search?q='+lien+'&btnG=Search'; ShellExecute(0,'OPEN',PChar(adresse), Nil, Nil, SW_SHOW); end;

---

EDIT: il doit certainement y avoir une astuce aussi avec DelimitedText de TStrings. Voir :f1: pour plus de détails ;)

alors en faite,
je recherche a avoir les espaces entre les mots (dans un meme item).
1 item = une recherche.

le probleme est par exemple "pour un seul item":


"manger de la ..." "a midi et soir"

donne avec mon script

"mangerdela..." "amidietsoir"



le scrit que tu me donne, ajoute tous les items a la recherche avec un espace.
mais je sans que le résultat est pas loin, je creuse creuse 8O

Si tu regardes bien sur Google, c'est pas des espaces mais des + qu'il faut mettre ;)
Donc ajoute

Code:

---

1 2	lien := AnsiReplaceStr(lien,' ','+');

---

Et ça devrait être bon ;)

de cette facon ?

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); Var lien,adresse:String; begin lien:=(ComboBox1.Text); lien:= AnsiReplaceText(lien,' ','+'); adresse:='http://www.google.fr/search?q='+lien+'&btnG=Search'; ShellExecute(0,'OPEN',PChar(adresse), Nil, Nil, SW_SHOW); end;

---

je debute sur le delphi, mais je pensai deja a un truc comme replace.
la sa m'indique 'identificateur non déclaré"...

je cherche

Le '+' est la bonne solution pour Google comme l'a dit Pedro
Sinon, de manière générale il faut utiliser les code ascii dans une URL avec '%' devant.

L'espace est à remplacer par '%20' par exemple.

Salut :D
Effectivement comme le dit TicTacToe, le %20 remplace l'espace.
Il conviendrait toutefois de savoir si tu veux faire une recherche sur chacun de tes mots de chacun de tes Items, une recherche sur la phrase de chacun de tes items ou une recherche de la phrase construite en réunissant out tes Items...

il convient qu'il y a de "" qui indique google
qu'il doit faire une recherche par lot de mot ou pas pour l'item.

esque c'est juste ?

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); Var lien,adresse:String; begin lien:=(ComboBox1.Text); lien:= AnsiReplaceText(lien,' ','+'); adresse:='http://www.google.fr/search?q='+lien+'&btnG=Search'; ShellExecute(0,'OPEN',PChar(adresse), Nil, Nil, SW_SHOW); end;

---

car a la compilation il m'indique : 'identificateur non déclaré"

apres quelques recherche a google ;) sa semble etre juste...

Bonjour,

Déjà à ajouter en Uses ==> StrUtils

Heuuu, puis aussi ==> ShellAPI ;)

ou la bourde pour moi !!! :mouarf:

c'est ok, sa marche nikel :aie:



merci a tous pour votre aide...
pour charger le premiere version,
weldoo.com
a bientot @++