funktion die alles ausser die root url abschneidet

[Matze]

Bei mir gibt Manus Funktion das falsche zurück.

Ich würde es so lösen:

Delphi-Quellcode:

uses StrUtils;

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