Variable in Hochkommas einfügen

[d3r.ich]

Hallo,
ich brauche eure Hilfe.
Ich möchte in Hochkommas eine Variable einfügen.

Delphi-Quellcode:

var
a:string;
begin
a:=edit1.Text;
shellExecute(Handle, 'open','http://www.google.de/search?q='+a, nil, nil, SW_SHOWNORMAL);

Sinn und Zweck der ganzen Angelegenheit soll sein, dass er nach dem googelt, was im EditFeld1 steht.
Nur irgendwie will er die Variable a da nicht so richtig akzeptieren. Könnt ihr mir helfen?

Gruß,
d3r.ich

[wurzelzwerg]

a:= QuotedStr(edit1.Text);

[d3r.ich]

Funktioniert leider nicht.
Mein aktueller code:

Delphi-Quellcode:

var
a:string;
begin
a:= QuotedStr(edit1.Text);
shellExecute(Handle, 'open','http://www.google.de/search?q=+a', nil, nil, SW_SHOWNORMAL);
end;

Wenn ich auf den Button klicke kommt bei Google leider nur ein "A".

[Gollum]

Hallo,

versuche es einmal so:
ShellExecute(Handle, 'open', PChar('http://www.google.de/search?q='+a), nil, nil, SW_SHOWNORMAL);

[d3r.ich]

Vielen Dank. Es hat funktioniert.
Liegt das jetzt an dem PChar oder an den Klammern?

Gruß

[Gollum]

Hallo,

es liegt am PChar.

[wurzelzwerg]

'http://www.google.de/search?q=+a'
Wenn du bei google nach a suchst kommt halt a. Das letzte Hochkomma muss vor dem + sein.
Ausserdem will shellexecute ein PChar.
So gehts auch:

Delphi-Quellcode:

var
  a:PChar;
begin
  a:= PChar('http://www.google.de/search?q='+ QuotedStr(edit1.Text));
  shellExecute(Handle, 'open',a, nil, nil, SW_SHOWNORMAL);

[d3r.ich]

Ich danke euch.
Es funktioniert super.

Gruß,
d3r.ich

[SirThornberry]

Nächsts mal einfach die Fehlermeldung nicht verheimlichen. Da wird dir schneller geholfen als wenn du nur schreibst das es so nicht geht. (unter anderem deswegen weil die Fehlermeldung in aller Regel aussagt was der Fehler ist)