[Open-Source]Programm zum Link-Quelltext erstellen

[Matze]

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.