Hier noch einpaar Verbesserungsvorschläge zu deinem Quelltext:
Delphi-Quellcode:
procedure TForm1.MozillaBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
var zeichen, h: Longint;
// "counter" brauchst du nicht
begin
//--
zeichen := Form6.Memo1.Lines.Count;
//
for h := 0
to zeichen -1
do
begin // begin - end nicht unbedingt noetig, aber sinnvoll
if pos(Uppercase(Form6.Memo1.Lines[h]),Uppercase(Form1.Edit8.Text)) = 0
then
Form1.StatusBar1.Panels[1].Text := ('
Webseite wurde geprüft!')
else
begin
showmessage('
Diese Webseite wurde gesperrt!!!');
Form1.Edit8.Text := ('
');
Form1.MozillaBrowser1.Navigate('
http://google.de');
end;
end;
end;
So ist der Quelltext dank Einrückungen besser lesbar. Außerdem kannst du dir die Variable "counter" auch schenken, denn die entspricht ja der Variable "h". Bei der if-Abfrage hab ich den begin-end-Block rausgenommen, brauchst du ja nicht unbedingt, dafür hab ich einen bei der Schleife eingebaut. Bis jetzt ist das nicht unbedingt nötig, aber solltest du später mal eine Anweisung nach der if-Abfrage aber innerhalb der Schleife einbauen wollen und dann das begin-end vergessen, dann kann es dir passieren, dass du ewig nach dem Fehler suchst und der nur wegen dem fehlenden begin-end auftaucht.
mfg