funktion die alles ausser die root url abschneidet

[mkinzler]

Wenn man nur die Domäne ohne Protokoll haben will:

Delphi-Quellcode:

function ExtractDomain( const URL: string; StripProtocoll: Boolean):string;
 var
    start: Integer;
    prot: Integer;

    function CheckProtocoll: Integer;
    begin
         Result:= Pos( '://', URL)+4;
    end;
begin
    prot := CheckProtocoll;
    if StripProtocoll then
        start := prot-1
    else
        start := 1;

    Result := Copy(URL, start, PosEx('/', URL, prot));
end;