funktion die alles ausser die root url abschneidet

[mkinzler]

Delphi-Quellcode:

function ExtractDomain( const URL: string):string;
    function CheckProtocoll: Integer;
    begin
         Result:= Pos( '://', URL)+4;
    end;
begin
    Result := Copy(URL, 1, PosEx('/', URL, CheckProtocoll));
end;