Zitat von
MrKnogge:
hier machst du aber etwas anderes:
if Pos('[i]XXX[/i]', HTMLCode.Text) <> 0 then Exit
dann muss es schon "= 0" heisen.
Wah, gut gut. Ich hab jetzt (während meiner Arbeit am Programm) kurz falsch rum gedacht.
So wäre es aber richtig:
Delphi-Quellcode:
begin
HTMLCode.Text := DownloadHTML('http://www.domain.de...');
if Pos('[i]Keine Ergebnisse[/i]', HTMLCode.Text) <> 0 then ShowMessage('Es wurde kein Film auf OFDb.de gefunden!')
else begin
//...
end;
end;