Zitat von
Tommy1988:
Aso..
ich hab das ganz anders versucht.. aber jetzt ist es richtig:
Delphi-Quellcode:
if ((
URL[1]='
h')
and (
URL[2]='
t')
and (
URL[3]='
t')
and
(
URL[4]='
p')
and (
URL[5]='
:')
and (
URL[6]='
/')
and
(
URL[7]='
/'))
and
((
URL[8]='
w')
and (
URL[9]='
w')
and (
URL[10]='
w')
and
(
URL[11]='
.'))
then
result := true;
Wie geil
Sorry, find's so lustig, bitte nicht übel nehmen.
Einfacher geht es so:
if Pos('http://www.', URL) = 1 then
Aber du musst bedenken, Subdomains oder IPs zu Beginn einer
URL haben kein "www.". Evtl. soll man auch über
ftp:// etwas einbinden können, das ginge ja auch.