Suche

SMARTY1 · Beiträge: 22

Hallo
Ich möchte ein Suchbegriff, den ich in ein Editfenster eingebe, in Google suchen!
An der Stelle bei der Internetseite, steht immer der Suchbegriff bei Google!
Wie kann ich das machen? So wie ich es gemacht habe geht es nicht!

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:=edit1.text;
Shellexecute (0, nil, 'http://www.google.de/search?hl=de&q=('s')&btnG=Google-Suche&meta=', nil, nil, SW_SHOWNORMAL);
end;

Yogu · Verfasst: Do 27.12.07 14:58

Was funktioniert nicht? Was ist nicht so, wie du es dir vorgestellt hast? Bitte erläutere uns noch etwas genauer, was dein Problem ist. Und benutze doch bitte Delphi-Tags.

Außerdem hat das ziemlich wenig mit der VCL zu tun. Delphi Language wäre wohl die bessere Wahl.

SMARTY1 · Beiträge: 22

ja mein Problem ist, dass ich das Wort, aslo die Variable s nicht in die Adresse einfügen kann!

Yogu · Verfasst: Do 27.12.07 15:07

Ach das meinst du.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:=edit1.text;
Shellexecute (0, nil, 'http://www.google.de/search?hl=de&q='+s+'&btnG=Google-Suche&meta=', nil, nil, SW_SHOWNORMAL);
end;

Vielleicht solltest du dich aber vorerst einmal mit der Syntax von Delphi auseinandersetzen. In Delphi werden Strings mit dem Pluszeichen aneinander gehängt. Variablennamen dürfen nicht in Anführungszeichen gesetzt werden.

Du könntest deinen Code aber auch folgendermaßen Abkürzen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Shellexecute (0, nil, 'http://www.google.de/search?hl=de&q='+Edit1.Text+'&btnG=Google-Suche&meta=', nil, nil, SW_SHOWNORMAL);
end;

SMARTY1 · Beiträge: 22

Danke! Ja das wusste ich nicht! Ich bin ja noch ein blutiger Anfänger!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme