funktion die alles ausser die root url abschneidet

[Die Muhkuh]

Also wenn das http:// immer dran ist:

Delphi-Quellcode:

function RootURL(const URL: string): string;
begin
  Result := Copy(URL, 8, Pos('/', URL) + 8);
end;